5 use experimental 'multidimensional', 'for_list', 'builtin';
9 my @digits = qw(zero one two three four five six seven eight nine);
10 my %map = reverse indexed @digits;
11 my $re = join('|', '\d', @digits);
14 my ($first) = /($re)/;
15 my ($last) = /.*($re)/;
17 $_ = $map{$_} if !/\d/;
19 $sum += "$first$last";
20 # say "$_ $first $last.";