while (defined($line = <FH>) ) {
  chomp $line;
  if ($line =~ s/\\$//) {
    $line .= <FH>;
    redo unless eof(FH);
  }
  # process full record in $line here
}