my ($a) = split /T/;
print RE $a;