>perl -wMstrict -le
"$_ = 'T}@T...T}@T{';
 s'T}@T.*T}@T{'\(bu'sm;
 print qq{'$_'};
"
'\(bu'