5 lines
177 B
Perl
5 lines
177 B
Perl
use Text::Soundex;
|
|
print soundex("Soundex"), "\n"; # S532
|
|
print soundex("Example"), "\n"; # E251
|
|
print soundex("Sownteks"), "\n"; # S532
|
|
print soundex("Ekzampul"), "\n"; # E251
|