print "================== /g ====================\n";
{
    my $txt = "abc3de";
    while( $txt =~ /\G[a-z]/g )
    {
        print "$&";
    }
    while( $txt =~ /\G./g )
    {
        print "$&";
    }
}
print "\n================== /gc ===================\n";
{
    my $txt = "abc3de";
    while( $txt =~ /\G[a-z]/gc )
    {
        print "$&";
    }
    while( $txt =~ /\G./g )
    {
        print "$&";
    }
}
print "\n================== done ==================\n";
 

cHJpbnQgIj09PT09PT09PT09PT09PT09PSAvZyA9PT09PT09PT09PT09PT09PT09PVxuIjsKewogICAgbXkgJHR4dCA9ICJhYmMzZGUiOwogICAgd2hpbGUoICR0eHQgPX4gL1xHW2Etel0vZyApCiAgICB7CiAgICAgICAgcHJpbnQgIiQmIjsKICAgIH0KICAgIHdoaWxlKCAkdHh0ID1+IC9cRy4vZyApCiAgICB7CiAgICAgICAgcHJpbnQgIiQmIjsKICAgIH0KfQpwcmludCAiXG49PT09PT09PT09PT09PT09PT0gL2djID09PT09PT09PT09PT09PT09PT1cbiI7CnsKICAgIG15ICR0eHQgPSAiYWJjM2RlIjsKICAgIHdoaWxlKCAkdHh0ID1+IC9cR1thLXpdL2djICkKICAgIHsKICAgICAgICBwcmludCAiJCYiOwogICAgfQogICAgd2hpbGUoICR0eHQgPX4gL1xHLi9nICkKICAgIHsKICAgICAgICBwcmludCAiJCYiOwogICAgfQp9CnByaW50ICJcbj09PT09PT09PT09PT09PT09PSBkb25lID09PT09PT09PT09PT09PT09PVxuIjsK