Select Code to Download

Select or download this

use warnings;
use strict;
...
{
  $_ =~ s/\s+$//;  
}

Select or download this

if ($charge_code == 4039140) {
              $bundle{$charge_code} += 1;
...
                 print "$account contained...$key => $bundle{$key}\n";
+  
              }  
}

Select or download this

4201034600031 1212104034111 001                                       
+          
4201034600031 1212104033180 001                                       
+          
...
4201034600031 1212104045022 001                                       
+          
4201034600031 1212104045019 001                                       
+          
4201034600031 1212104045022 001

Select or download this

CH 01034600031 1212104034111 001 LAB
CH 01034600031 1212104033180 001 LAB
...
CH 01034600031 1212104045022 001 LAB
CH 01034600031 1212104045019 001 LAB
CH 01034600031 1212104045022 001 LAB