$ perl -d -e1

Loading DB routines from perl5db.pl version 1.44
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(-e:1):   1
  DB<1> Comments? We don't need no stinking comments.
"no" not allowed in expression at (eval 6)[/usr/lib/perl5/5.20.1/perl5db.pl:732] line 2, at end of line
syntax error at (eval 6)[/usr/lib/perl5/5.20.1/perl5db.pl:732] line 2, near "need no stinking "


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,