Help for this page
Select Code to Download
Select
or
download this
$string=~ /\s*([^.|]+)\.mp3/; print "$1\n";
Select
or
download this
$string=~/\s*([^|]+)\.mp3/;