#!/usr/bin/perl

use strict;

my $out="";

while (<STDIN>) {
	if (/Artist|Title|artist|title/) {
		
		s/.*: //;
		s/.*=//;
		s/\n//;
		
		if ($out eq "") {
			$out="$_" 
		} else {
			my @foo = split(" - ", $out);
			$out="$_ - $foo[0]";
		}
	}
}

print "$out\n";
