Select Code to Download

$COMPFILE = IO::File->new;
#!!!!!!!!!!!!!!!!!!!!!!!!! SCALAR SLURP !!!!!!!!!!!!!!!!!!!!!!!!
...
        print $COMPFILE "$compline";
    }
}

! ==========================================================
TITLE  T2 C1 2V-03-12100 9193 - 9406 EFPH. UTBR STEG NR 018
...
CONROD  ALL=100
BURNUP  213.0000, 1, EFPH, Straight-Euler
END

! ==========================================================
TITLE  T2 C1 2V-03-12100 BEGIN - FINISH EFPH. UTBR STEG NR 018
...
CONROD  ALL=100
BURNUP  500.0000, 1, EFPH, Straight-Euler
END