Help for this page
c:\@Work\Perl>perl -wMstrict -le "my $s = 'xxxfoooooyyy'; ... print qq{'$1'}; " 'fooooo'