in reply to regex question
$string=~ /\s*([^.|]+)\.mp3/; print "$1\n"; [download]
update Use:
$string=~/\s*([^|]+)\.mp3/; [download]