$string = "bcde";
$string =~ s/($_)/a$1/;