No point in duplicating that tr/// string twice. This will suffice:

$longest = $_  if length == tr/qwertasdfgzxcvb//;
[download]

-- Randal L. Schwartz, Perl hacker