use Regex::PreSuf;
my $pattern= presuf(keys %map);
$string =~ s/($pattern)/$map{ $1 }/go;