Help for this page
if ( "aab" =~ /(.)\1(*SKIP)(*FAIL)|.*/ ) { say $&; # b }
if ( "aab" =~ /(.)(*MARK:go)\1(*SKIP:go)(*FAIL)|.*/ ) { say $&; # ab }