Select Code to Download

>perl -wMstrict -le
"my $s = 'xaxaaaaa';
 print qq{matched, captured '$1'} if $s =~ /(a*)/;
"
matched, captured ''