Select Code to Download

sub repeated_substring {
   my ($ssl,$pos) = (1,-1);
...
   }
   return $pos == -1 ? "" : substr($_[0], $pos, $ssl-1);
}

sub findlcs {
   my @ret;
...
   }
   return (sort { length($a) <=> length($b) } @ret)[0];
}