Select Code to Download

open ( $fh, "< $path_to_file");
binmode($fh);
...
while ($line = pop @log) {
    last if ($line =~ /^.*\ -\ line I'm looking for$/);
}

    last if ($line =~ /^.*\ -\ line I'm looking for/);