100 by primo

$,=$/,print+zero,@1=(one,two,three,four,five,@2=(six,seven,eight,nine)),ten,eleven,twelve,(map{s/t$//;$_.teen}@3=(thir,four,fif,@2)),(map{$s=s/u//r.ty,map"$s $_",@1}twen,@3),'one hundred'

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page