$ perlver-fast -ve '$a = "fo" =~ s{f\K}{o}r'
-e: 5.006 / 5.006