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'