use Text::Soundex; print soundex ("Skullbowl");