#is this what you're trying to do?
my $left = "xfafasfsdfasdfasdsfFOOBAR";
my $right = "FOOBAR4t11";
(my $concat = "$left,$right") =~ s/(.*),\1/$1/;