Select Code to Download

01 keep 
02 keep        <- gets discarded by your code.
...
11 discard B1
12 somepat
13 somepat

    'd!'      => \$delete,

perl dellines.pl -i somepat -d > someconfile