| Current Path : /usr/share/doc/perl-Text-Fuzzy/examples/ |
| Current File : //usr/share/doc/perl-Text-Fuzzy/examples/unicode.pl |
#!/usr/bin/perl
use warnings;
use strict;
use Text::Fuzzy;
use utf8;
my $tf = Text::Fuzzy->new ('あいうえお☺');
print $tf->distance ('うえお☺'), "\n";