while ( <> ) {
    if ( s/\\$// ) { chomp; $_ .= <>; redo; }
    # ..
}