• Lingua::EN::FindNumber
• Lingua::EN::Numericalize
• Lingua::EN::Words2Nums

There aren't recommendations. I have never used or heard of them before.

Below name2num is a hash table. The key is the name, like "one" and the value is a number like "1". I leave it to you to do some more typing of the digits 4-9, but this will be fast and work well.

#!/usr/bin/perl -w
use strict;

my %name2num =
   ('zero' => 0, 'one' => 1, 'two' => 2, 'three' =>3);
   
my @text = qw ( two three zero one);

foreach my $name (@text)
{
   print "$name means $name2num{$name}\n";
}
__END__
two means 2
three means 3
zero means 0
one means 1
[download]

%Alphabet = ('one'   => 1,
             'two'   => 2,
             'three' => 3);
print $Alphabet{"one"};
print $Alphabet{$Written_number};
[download]

You could add the remaining 7 numbers easily.

I wonder which seven numbers those are. I vote for
• zero
• four
• eight
• sixteen
• fourty-two
• two hundred and fixty-six
• pi