or download this
#!perl
%h=(106=>[1], 117=>[2],115=>[3],116 =>[4,9],32=>[5,13,18],
...
$_____=ord$j;$____=0;if($h{$_____}){my@______=@{$h{$_____}
};$___[$_] =chr$_____ for@______;for(@___){$____++ if $_;}
}print$_ for @___;last if $____==24;}}print ",\n";close _;