$print = 0;
while ( <DATA> ) {
    if ( $print ) {
        print;
    }

    if ( /^This is a temp line\./ ) {
        $print = 1;
    }
}