my ($tair_id) = $str2 =~ /(AT\dG\d{5})/i;

##</code><code>##

my ($tair_id) = $str2 =~ /(AT\dG\d{5}(?:\.\d+)?)/i;