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