6 lines
177 B
Perl
6 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
|