while ( <FH> ) {
    if ( /^SOURCES/ && /\\$/ ) {
        $_ .= <FH>;
        redo;
        }
    elsif ( /^SOURCES/ ) {
        print;
        }
    }