use strict;
use warnings;

my $letters = 'balphe_';
my (%lhash, @solutions, $blanks, $bcopy, $l);

$blanks++ while $letters =~ s/[^a-z]//;
$lhash{$_}++ for split //, $letters;

while (<DATA>) {
    $bcopy = $blanks;
    my %whash; chomp; $whash{$_}++ for split //;

    for $l (keys %whash) {
        no warnings;
        last if $lhash{$l} < $whash{$l} &&
            ($bcopy -= $whash{$l} - $lhash{$l}) < 0;
    }
    push @solutions, $_ if $bcopy > -1;
}

print join "\n",
    sort {length($b) <=> length($a) || $a cmp $b}
    @solutions;

__DATA__
alpha
beta
gamma
delta
epsilon