c:\@Work\Perl>perl -wMstrict -le
"my $s = 'xxxfoooooyyy';
 ;;
 $s =~ /(?x) ( f o o + ) /;
 print qq{'$1'};
"
'fooooo'