Select Code to Download

#!/usr/bin/env perl -l

...
        = $data . ' ' x ($length - length $data);
    $$offset_ref += $length;
}

Length of line = 510
Line = |                                                              
+                                                                     
+    DATE=MMDDYYMMDDYYHHMMSS                    G1ADP   123           
+                                                                     
+                                                                     
+                                                                     
+                                                                     
+                                  |