Select Code to Download

#!/usr/bin/env perl

...
    $string =~ s/$pattern/$number_names[$1]/g;
    print "NAMES:  $string\n";
}

DIGITS: 8, 9, 5
NAMES:  eight, nine, five
...
NAMES:  three-two-one-zero
DIGITS: Testing: 1 2 3
NAMES:  Testing: one two three