my $re = join '\bŠ\b', reverse keys %mapper;
while (<IN>){
    s/\b($re)\b/$mapper{$1}/gei;
};