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,0103,0104
                ^^^^^^^^^^^^^^

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

or

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