Select Code to Download

<SUBBEGIN
    IMSI=12345678495452;
...
    EPSSER=1-10-10-1-NONE-DYNAMIC-00000000-1;
    MPS=NO;
<SUBEND

#!/usr/bin/perl 
use strict;
...

close INFILE;
close OUTFILE;