Select Code to Download

open(FILE, "<", $this_file) or die "Could not open $this_file because 
+$!\n";

$long{$file} = $longest_string_in_this_file;
$short{$file} = $shortest_string_in_the_same_file;