c:\@Work\Perl\monks\OldChamp>perl -wMstrict -le
"my $s = do { local $/;  <>; };
 print qq{[[$s]] \n};
 ;;
 my $rx = '{\[%tqu.*?]}';
 my $su = '';
 $s =~ s/$rx/$su/gis;
 print qq{[[$s]]};
"  tqu.txt
[[keep this {[%tqu get
rid of
this]} and
keep this too
keep {[%tqu but
dump
also ]} it
to here.
]]

[[keep this  and
keep this too
keep  it
to here.
]]