my ($ga) = ($str =~ /(\bGA\b)/)