Eu uso
use String::Approx 'amatch';
print if amatch("foobar");
my @matches = amatch("xyzzy", @inputs);
my @catches = amatch("plugh", ['2'], @inputs);
Em Qui, 2012-06-28 às 18:20 -0300, Stanislaw Pusep escreveu:
>
> Um dos exemplos de aplicação prática dela é o utilitário
> 'agrep' (approximate grep).