Select Code to Download

#!/usr/bin/env perl

...
        print $out_fh $_;
    }
}

$ cat pm_1155986_in.txt
     *TRANSACTION STARTED*
...
[020t 06:44:25 CARD TAKEN
[020t 06:44:29 TRANSACTION END
[0r(1)2[000p[040qe1w3h162[020t*745*02/01/2016*06:56*[/CODE]

$ ls -l pm_1155986_out_*
-rw-r--r--  1 ken  staff  322 24 Feb 21:20 pm_1155986_out_0.txt
-rw-r--r--  1 ken  staff  287 24 Feb 21:20 pm_1155986_out_1.txt
-rw-r--r--  1 ken  staff  240 24 Feb 21:20 pm_1155986_out_2.txt
-rw-r--r--  1 ken  staff  261 24 Feb 21:20 pm_1155986_out_3.txt

$ for i in {0..3}; do echo ">>>>> pm_1155986_out_${i}.txt"; cat pm_115
+5986_out_${i}.txt; echo; done
>>>>> pm_1155986_out_0.txt
...
LEDGER         GHC14.28
[020t 06:44:25 CARD TAKEN