@ARGV = qw(/usr/dict/words);

my $len = 0;
my @largest;

while (<>)
{
	chomp;

	next unless length >= $len && /^[qazwsxedcrfvtgb]+$/i;

	if (length > $len)
	{
		@largest = ();
		$len = length;
	}

	push @largest, $_;
}

print join(', ', @largest), $/;