DB<267> x qq\@{[ (sort grep { $_ gt '[' } %::)[0] ]}\; 
0  '\\'
  DB<268> x qq\@{[ grep { '[' lt $_ lt ']' } %:: ]}\; 
0  '\\'
  DB<269>

##</code><code>##

print  "\\\n" eq
  qq\@{[<<'']}\;
\

# is there an easy way to chomp a here doc?