You should edit your post and strip at least the dangerous part from it, before someone tries to execute it.
Regarding your question, B::Deparse shows the transliteration as (indentation and linebreaks added for clarity)
tr ( -/:-@[-`{-}) [`-{/" \-] ;
tr allows to define ranges with - , even outside alphabetic characters, such that you can translate
like `-{ in the "to" part becoming the alphabet
DB<11> print chr($_),"" for ord('`')..ord('{') `abcdefghijklmnopqrstuvwxyz{
flattening the "from" part
DB<16> print chr($_) for map {ord($_->[0])..ord($_->[1])} [' ','/'], + [qw(: @)],[qw([ `)],[qw({ })] !"#$%&'()*+,-./:;<=>?@[\]^_`{|}
Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice
In reply to Re: Please, help understanding y/// transliteration in this example (DON'T TRY)
by LanX
in thread Please, help understanding y/// transliteration in this example (DON'T TRY executing oneliner)
by igoryonya
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |