Select Code to Download

{
  open my $fh, "<", "some_file" or last;
}

if (/VALID/)
{{ # First bracket is for the if, second is for a loop-like block
  open my $fh, "<", "some_file" or last;
}}

while (<>)
{
  if (/INVALID/)
...
    last;
  }
}