#!/usr/bin/perl
use v5.14;
use warnings;

my (%av, @ans);
$av{$_}++ for split '', <>;

MAIN:
while (<>) {
	my %nd;
	$nd{$_}++ for split '';
	for (keys %nd) {
		next MAIN if $av{$_} < $nd{$_}
	}
	push @ans, $_;
}

say @ans;