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

##</code><code>##

my $last;
while(<IN>) {
  if(/^\s+(spg-risk\S+)/) {
    $items{$1} = $_;
    $last = $1;
  } elsif($last) {
    $items{$last} .= $_;
  } else {
    warn "Extended line found before any items found\n";
  }
}