#! perl
use strict;
use warnings;

my $string1 = 'CHARLIE ROOT';
my $string2 = 'HARRY NODE';
my @list1   =  split //, $string1;
my @list2   =  split //, $string2;
my %hash1   =  map { $_ => undef } @list1;
my %hash2   =  map { $_ => undef } @list2;

delete $hash1{' '};
delete $hash2{' '};

for (@list1)
{
    print unless exists $hash2{$_};
}

for (@list2)
{
    print unless exists $hash1{$_};
}

##</code><code>##

16:26 >perl 815_SoPW.pl
CLI TY ND
16:26 >