my @matching = $string =~ /(T_[^\s;]*)/g;
print join " ", @matching, $/;