use strict;
use warnings;

$_="kkkaaabc"; 
print "String = $_\n";
print "1 $&      Expected: ka     ?? /k?a?/\n" if /k?a?/;
print "2 $&   Expected: kkka   OK\n"    if /k*a?/;
print "3 $&   Expected: kaaa   OK\n"    if /k?a+/;
print "4 $& Expected: kkkaaa OK\n"      if /k+a+/;
print "5 $&      Expected: kaaa   ?? /k?a*/\n" if /k?a*/;
print "6 $& Expected: kkkaaa OK\n"      if /k*a*/;


##</code><code>##

String = kkkaaabc
1 k      Expected: ka     ?? /k?a?/
2 kkka   Expected: kkka   OK
3 kaaa   Expected: kaaa   OK
4 kkkaaa Expected: kkkaaa OK
5 k      Expected: kaaa   ?? /k?a*/
6 kkkaaa Expected: kkkaaa OK