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

or

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