use strict;
use warnings;

my $data = shift @ARGV;
my $regex = qr /^([$data]*)([^$data]?)([$data]*)$/;

my %letterfrequency;
$letterfrequency{$_}++ foreach split //, $data;

OUTER: while (chomp(my $word = <>))
{
	next unless $word =~ /$regex/i;
	my %frequency;
	my $repeat = $2 ? 0 : 1;
	foreach (split //, $1.$3) {
		if (++$frequency{$_} > $letterfrequency{$_}) {
			next OUTER unless $repeat --;
		}
	}
	print "$word\n";
}