use Text::Soundex;



$code = soundex $string;  # get soundex code for a string

@codes = soundex @list;   # get list of codes for list of strings



# set value to be returned for strings without soundex code

$soundex_nocode = 'Z000';

*****

@codes = soundex qw(Mike Stok);

*****

$code = soundex 'Knuth';              # $code contains 'K530'

@list = soundex qw(Lloyd Gauss);      # @list contains 'L300', 'G200'

