my $s1 =  'abcdef';
my $s2 =  'efghijk';
my $m  =  $s1 . "\0" . $s2;
   $m  =~ s/(\w+)\0(\1)/$1/;

print $m;