my %trans = (
   1 => "one",
   2 => "two",
   ...
   z => "zulu",
);
foreach (split //, $line) {
    if (exists $trans{$_}) {
        print $trans{$_}, " ";
    } else {
        print $_, " ";
    }
}