Select Code to Download

use strict;
use warnings;
...
   $longest = $1  if $seen{$1}++ && length $1 > length $longest;
}
print $longest,$/;

The cat jumped over the dog.