in reply to Re: Weird "soundex" algorithm
in thread Weird "soundex" algorithm
Thanks to yours and jmcnamara's reply: i totally forgot about the power of tr/// modifiers, especially c and s, which i never used before. :)
$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g
In Section
Seekers of Perl Wisdom