$longest = $_  if length == tr/qwertasdfgzxcvb//;