my $YESMapping = 0;


while (my ($key, $value) = each %map) {
    $YESMapping += s/$key/$value/gi;
}

print "Replaced $YESMapping entries.\n"