All these complications... I was just thinking of doing

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

Of course, while this solves the question in the post, it may not do what the author wants ;).