Caution - contents may settle in transit

[ncw]

$_=q
  , .  .  .  . . . . . .   .  .  . . .    . . .   .  . .   . . .  . . 
+ .
  . .   .  .   . . .  .   .  . .   . . . . .  . . . .  . . .  . . .  .
+ .
  . . .  .  .  . .  . .   . .  .  .  . . .  .  . .  .  .  . .  . . . .
+ .
  . . . . . . .  . . . . . .  . .    .   . .  .  .   . . .  .  . .  . 
+ .
  .  . .  .  .  . .  . . . .   .  . .  . . . . .   .  . . .  . .  . . 
+ .
  .  . . .  . . . .    . . . . . . .   . .  . . . . . .    .  . . .  .
+ .
  . .  .  .  . . .  . . .  .  . .  .   . . . . .   . . . . . . .   . .
+ .
  . . . . .   .   . . . . .   . .  .   . . . .   .  . .  .   . .  . . 
+ .
  . .   .    . . .   . .   . .   .  .   . . .    . . . .   . . . .   .
+ .
,,s,(([\s\S])\2*),1<length$1?1:$1eq' '?0:'',ge,tr,01,,cd,eval pack"B*"
+,$_

[Anonymous Monk]

I have a script like this and i'm trying to understand how it works... the $_=q(with all those unprintable char after) how does this work. Please help I need it bad, i've been serching since yesterday...

[cwest]

Read the docs for qin perlop. Learn how to build a q operator statement with different delimiters.

$_=q uit it u;
print; # prints 'it it '

Enjoy!

--
Casey
   I am a superhero.

[Anonymous Monk]

Hi! THanks a lot, you've put me on the right page! ;) But I can't figure out how the tr{}{} function operator works... I have a "tr" followed by a bunch of garbage in a script but can't figure out how to translate this stuf... any exemple? thanks again for your precious help! you're my superhero ;)