Select Code to Download

$file =~ /^\s+spg-risk-\S+\s+.*? IN \d{8}\/\d\s*$/ms;

my $last;
while(<IN>) {
...
    warn "Extended line found before any items found\n";
  }
}