$source =~ s/$map{$key}/$key/g;