my $line = qq(01 02 1 |                        Ozzy Osbourne |                       Back On Earth  Ozzy Osbourne - Back on earth.mp3 |  5:00  4689 44.100 128);

my @pieces = split /\s*\|\s*/, $line;
my $file = $1 if $pieces[2] =~ /\s\s(.*?\.mp3)/;
print "$file\n";