my $YESMapping = 0;

foreach my $replace (keys(%map)) {
    $YESMapping = $YESMapping + ($_ =~ s/$replace/$map{$replace}/gi)
}

print "Replaced $YESMapping entries.\n"