my $encrypted = join '', map {exists $trans{$_} ? $trans{$_} : $_} split //, $orig;