Re^2: map and grep or clear code?

I think I prefer yours and 950927:

my %map = ( ... );
$map{$_} = $_ for 0..9;

my $numeric =
    join '',
     map $map{$_}, 
      split //, uc($word);

say $numeric;
[download]

Walking the road to enlightenment... I found a penguin and a camel on the way.....
Fancy a yourname@perl.me.uk? Just ask!!!

Comment on Re^2: map and grep or clear code? Download Code