$string=~ /\s*([^.|]+)\.mp3/; 
print "$1\n";

##</code><code>##

$string=~/\s*([^|]+)\.mp3/;