#!/usr/bin/perl -w
use strict;

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

my $longest = '';

while (<>) {
    chomp;
    next unless length > length $longest;
    if (length == tr/qwertasdfgzxcvb/qwertasdfgzxcvb/) {
        $longest = $_;
    }
}

print $longest;