my $letter_A = <>;
my $letter_B =<>;
chomp ($letter_A, $letter_B);

my @letter_A = split(//, $letter_A);
my @letter_B = split(//, $letter_B);

@letter_A = sort {$a cmp $b} @letter_A;
@letter_B = sort {$a cmp $b} @letter_B;

my $count = 0;
my $count_same = 0;

for my $character_A(@letter_A){
    for my $character_B(@letter_B){
        $count++;
        if ($letter_A =~ /$letter_B/){
            $count_same++;
        }
    }
}

if ($count == $count_same){
    print "YES\n";
}else{
    print "NO\n";
}