#!perl
$_=;
$_=" $_";
~s/(\w+)een/1$1/g;
~s/(\w+)ty/$1*10/gx;
foreach $k (map qr/$_/, map '([\s\d])'.$_.'\w{0,}', qw(z o tw(o|en) th[ri] fo fi si se ei n ten el twel)){
~s/$k/$1$i/gx;	
$i++;
}
~s/\sh\w+/*100/g;
~s/(\d)\s(\d)/$1+$2/g;
~m/((.*?)b\w+\s?)?((.*?)m\w+\s?)?((.*?)t\w+\s?)?(.*)?/;
map eval('$r.=",".sprintf("%03d",'.$_.")"),($2,$4,$6,$7);
$r=~s/^[0,]+(.+)/$1/;
print $r."\n";