my $current_line = q{};
while( defined( my $line = <> ) ) {
  chomp( $line );

  if( $line =~ m{^ \s+ \w+ }x ) {
    $current_line .= $line;
    next;
  } else {
    _process_line( $current_line );
    $current_line = $line;
  }
}

if( $current_line ) {
  _process_line( $current_line );
}

sub _process_line {
  my( $line ) = $shift;
  ## do whatever . . .
}