while (<>) {
    s/(.)/exists $charmap{$1} ? $charmap{$1} : $1/seg;
    print;
}