5 use experimental 'multidimensional', 'for_list', 'builtin';
22 my ($first) = /(\d|one|two|three|four|five|six|seven|eight|nine)/;
23 my ($last) = /(?:.*)(\d|one|two|three|four|five|six|seven|eight|nine)/;
24 $first = $map{$first} if exists $map{$first};
25 $last = $map{$last} if exists $map{$last};
26 $sum += "$first$last";
27 # say "$_ $first $last.";