#!/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";
}