# My code
while (<>) {
  chomp;
  if (s/\\//) {
    unless (eof) {    # don't read past each file's eof
      $_ .= <>;
      redo;
    }
  }
  # now process $_
}