Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'aaaaabbbb';
 print qq{matches '$1' at offset $-[1]} if $s =~ /(b*)/;
"
matches '' at offset 0