Select Code to Download

#! perl
use strict;
...
{
    print "No matches found\n";
}

fal
falle
fall
awiSayaM
awiSayanZ

19:42 >perl 454_SoPW.pl
Enter the target word: awiSayanA
...
The closest match is:  falle

19:42 >

#! perl
use strict;
...

    return wantarray ? @results : $results[0];
}

18:27 >perl -MString::LCSS=lcss -wE "say scalar lcss('abxabcy', 'abc')
+;"
ab

18:28 >

sub lcss
{
...

    return $lcs;
}