Select Code to Download

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

StartTr1
sample 1
...
junk
junk
junk

sample 1
sample 1
...
sample 2
sample 2
last line before sample 2