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