Select Code to Download

use Modern::Perl;
use Lingua::EN::Sentence qw( get_sentences );
...
map { $seen{$_}++ and length $_ > length $LRS and $LRS = $_ }
  @{ get_sentences($sentences) };
say $LRS;

Mr. Cat jumped over the dog.