#!/usr/bin/perl
use strict;
use warnings;

my $string1 = 'abcdef';
my $string2 = 'efghijk';

foreach my $letter (split //, $string2){
	$string1 =~ s/$letter//g;
}

my $new_string	= $string1.$string2;

print "$new_string";