Select Code to Download

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