Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'kkkaaabc';
...
 ^^^^^^  /k*a*/ matched 'kkkaaa' at offset 0
'kkkaaabc'
   /a*/ matched '' at offset 0

my $match = $s =~ m{ ($rx) }xms;

...
    print 'no match';
    next;
    }