Select Code to Download

use strict;
use warnings;
...
print "5 $&      Expected: kaaa   ?? /k?a*/\n" if /k?a*/;
print "6 $& Expected: kkkaaa OK\n"      if /k*a*/;

String = kkkaaabc
1 k      Expected: ka     ?? /k?a?/
...
5 k      Expected: kaaa   ?? /k?a*/
6 kkkaaa Expected: kkkaaa OK