Select Code to Download

Old Style       0101 A123456-7 B Lo Po De    A  G
Modern Style    0101 A123456-7 B Lo Po De    A  321 Im G5 III
Extended Style  0101 A123456-7 B Lo Po De    A  321 Im G5 III :0102,01
+03,0104
                ^^^^^^^^^^^^^^

foreach (@row)
{
   my ($name, $rest) = /^(.){15}(.*)$/;
   my @data = split( ' ', $rest, 3 );
}

   my ($name, $loc, $upp, $rest) = /^(\w.*\w)\s*(\d{4})\s*(\S{9}) (.*)
+$/;

   my ($code, $pbg, $allegiance, $more) = $rest =~ /(A|R)?\s+(\d\d\d)\
+s+(..)\s+(.*)$/;

...

   my $gg = $rest =~ /G/;