use Text::Soundex;
$\="\n";
print soundex 'Jeff';
print soundex 'japhy';