use Devel::Peek;
my $mp3 = MP3::Tag->new( $file );
my ($title, $track, $artist, $album, $comment, $year, $genre) = $mp3->autoinfo();
my $string = "$entry|$title|$track|$artist|$album|$comment|$year|$genre";
Dump ($string);