#!/usr/bin/perl
map{y/[a-z]/ /;s/TS/_\//g;print;}<DATA>;
__END__
TSTSTSTSTSsdfsdTSrtytryyTSTSTSTSfgTSdfdfTSfdf
asdyTSsdfsdfsTSsdTSyuiuyTSfggfTSfgTSdfgdTSghj
greoTSsdfssfTSweweTSyuuyTSTSTSTSfgTSTSTSTSert
TSwpTSsdfshTSTSTSTSTSyuiTSfghgfhffTSdfdfTSdfg
TSTSTSsdflTStyutyutrTSyuTScvvcbcvcTSfddfTSert