#!/usr/bin/perl
use strict;
use warnings;
use List::MoreUtils qw(uniq);

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

my $merged = join '', uniq map {split //} $string1, $string2;