for ( $linesFromFile ) {
    if ( /^StartTr1/gm .. /^oflTr1/gm ) {
        print;
    }
}