Select Code to Download

#!/usr/bin/perl -w

...
if ( substr($left,-$length) eq substr($right,0,$length) ) {
    print "Match!\n";
}

my $intersect = substr($left,-$length);

...
    print "matched again!\n";
}