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

print $m;