my %xlate = qw#a 4 e 3 k |< n |\|#;
sub xlate { join '', map { exists($xlate{$_}) ? $xlate{$_} : $_ } split //, shift }