my $x = "abcde"; $x =~ s/b../sprintf "==${^MATCH}=="/pe; print "$x\n";