Select Code to Download

#! perl -slw
use strict;
...
one hundred twenty third street
three hundred thirty third street
thirty-three hundred seventy-fifth street

D:\Perl\test>261018
third| => 3rd
...
one|hundred|twenty|third| => 123rd
three|hundred|thirty|third| => 333rd
thirty|three|hundred|seventy|fifth| => 3375th