my %u = map {$_ => $_} split //, $str1;
    return grep defined, delete @u{split //, $str2};