Select Code to Download

open(IN, "/some/file") || die "Cant open /some/file: $!\n";
while (<IN>) {
...
   chomp($capture = $_);
}
close(IN);

open(IN, "/some/file") || die "Cant open /some/file: $!\n";
chomp( ($capture) = grep(/^$some_match/, <IN>) );
close(IN);