chomp( my $line = <$fh> );
while (defined($line)) {
   chomp( my $next = <$fh> );
   if (defined($next) && $next =~ s/^\s+//) {
      $line .= $next;
      redo;
   }

   ... do something with $line ...

   $line = $next;
}