I think this is the thing you need.

open(DATA,"ss.txt") or die $!;
@data=<DATA>;
close(DATA);
foreach $i(0 .. scalar @data){
if($data[$i] =~/\{T\}/){
$data[$i]=~s/$data[$i]//g;
$data[$i+1]=~s/$data[$i+1]//g;
}
else{
print "$data[$i]";
}
}
[download]