Select Code to Download

while (<DATA>) {
   my @parts = unpack('A5 A7 A5 A3 A5 A9 A8 A5 A*', $_);
...
   }
   print(join(';', @parts), "\n");
}

while (<DATA>) {
   my @parts = unpack('A5 A7 A5 A3 A5 A9 A2 A4 A2 A5 A*', $_);
...
   splice(@parts, 6, 3, $flags);
   print(join(';', @parts), "\n");
}