$result =~ s/(Mr(s)?) a/\1 A/s;