#!/usr/bin/perl -w

use strict;

my $length = 6;
my $left = "xfafasfsdfasdfasdsfFOOBAR";
my $right = "FOOBAR4t11";

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

##</code><code>##

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

if ( $right =~ /^$intersect/ ) {
    print "matched again!\n";
}