c:\@Work\Perl\monks>perl -wMstrict -le
"my $curdir   = 'Y:\Music\Schubert\Lieder\Terfel';
 my $startdir = 'Y:\mUsIc\\';
 ;;
 my $plsname = $curdir;
 $plsname =~ s/^\Q$startdir\E//i;
 $plsname =~ s/\\/_/g;
 $plsname .= '.pls';
 print qq{'$plsname'};
"
'Schubert_Lieder_Terfel.pls'

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'bar foooo bozzle';
 ;;
 my ($capture) = $s =~ m{ (fo+) }xms;
 print qq{'$capture'};
 ;;
 my ($found_it) = $s =~ m{ (?<= \s) b .* e }xmsg;
 print qq{'$found_it'};
 ;;
 my $regex = qr{ \A (b \w+) }xms;
 my ($it_was_there) = $s =~ $regex;
 print qq{'$it_was_there'};
"
'foooo'
'bozzle'
'bar'