in reply to Help with Regular Expressions and Perl

Unrelated to your problem, but if you find yourself doing lots of digit to word conversions, Lingua::EN::Numbers is handy: 
use Lingua::EN::Numbers qw(num2en);
print num2en(4);

__END__

four

[download]

In Section Seekers of Perl Wisdom