#!perl -lp
@§=(qw{?y ?e.n h z o .wo|.wen th[^o] fo f si s ei n te e tw t m b *10 +10
*100},(map"+".$_,0..12),map")*1e$_+(",3,6,9);s/\b$§[$§++]\w*/$§[$§+18]/gwhile$§<19;$_=reverse
eval"($_)";$_=reverse
join",",/..?.?/g

#!perl -lp
@_=(qw{?y ?een h z o two|twen th[^o] fo f si s ei n te e tw t m b *10
+10 *100},(map"+".$_,0..12),map")*1e$_+(",3,6,9);s/\b$_[$i++]\w*/$_[$i+18]/gwhile$i<19;$_=reverse
eval"($_)";$_=reverse
join",",/..?.?/g

#!perl -lp
@_=(qw{?ty ?teen h z o two|twen th[^o] fo f si s ei n te e tw t m b *10 +10 *100},(map"+".$_,0..12),map")*1e$_+(",3,6,9);s/\b$_[$i++]\w*/$_[$i+18]/gwhile$i<19;$_=reverse
eval"($_)";$_=reverse
join",",/..?.?/g

#!perl -lp
@_=(qw{y een z o two|twen th[^o] fo f si s ei n te e tw h t m b *10
+10},(map"+".$_,0..12),"*100",map")*1e$_+(",3,6,9);s/$§$_[$i]\w*/$_[$i+19]/g,$i++and$§='\b'while$i<19;$_=reverse
eval"($_)";$_=reverse
join",",/..?.?/g

#!perl -lp
@_=(qw{y een z o two|twen th[^o] fo f si s ei n te e tw h t m b $ *10
+10},(map"+".$_,0..12),"*100",map")*1e$_+(",3,6,9);s/$§$_[$i]\w*/$_[$i+20]/g,$i++and$§='\b'while$i<19;$_=reverse
eval"($_)";$_=reverse
join",",/..?.?/g