Ruby に取っては意味のない文字列リテラル、 Perl に取っては正規表現実行してその後はコメントアウト
$_='__$=(/_/[__$]+"")[_$$*(___=_+(__=_+_))-_];$_$=$$($$_[_]+$$_[___]+$$_[$]+_$[
$]+$$_[_]+_$[_]+"("+_$[$]+_$[_]+$$_[___]+$$$[___]+$__+$$$[_]+__$+$$_[___]+")")(
);_$_="%"+__+(_$$+__);__="%"+_$$+$__+_$_;$$($_$("_="+$$_[$]+"%"+(___+___)+(___+
___+_+_)+_$[___+_+_]+$$$[___]+"."+$$$[_]+$$$[_+_]+$$_[___]+$$_[_]+$$_[$]+";_=_?
_:"+__$+$$_[_]+_$[_$$]+_$[_$$+_]+$$_[$]+";_("+_$_+"$_="+__)+$_+$_$(__+";$___="+
__+$___+__+$___+_$_+")"))();';$___=';$/*$.;$/=$_;%#=~("(?{".("+)).[|`{!`||"^"[[
@@/^<_~][^").".".("{"^"_")."/.".("||``{!!!`||"^"^[[<_~~~][^").".".("{!!!"^"_~~~
").".".("|||"^"^[^").".".("{!!!"^"_~~~").".".("|/|"^"^%^")."})")#;_=$$/$$;$__=(
___=(__=_+_)<<_)<<_;$><<"$_="+(_=""<<(___<<__+_)+$__-_)+($_+_+";$___="+_+$___+_
+$___<<__+$__)#*/=_=+[];$$=""+{};_$=""+[][++_];$$$=""+!_;$$_=""+!$;$$=_[__$=($_
_=$$[_$$=_+_+_+_+_])+$$[_]+_$[_]+$$$[_+_+_]+$$[_$$+_]+$$_[_]+_$[$]+$__+$$_[$]+$
$[_]+$$_[_]][__$];$$($_)()';$/*$.;$/=$_;%#=~("(?{".("+)).[|`{!`||"^"[[@@/^<_~][
^").".".("{"^"_")."/.".("||``{!!!`||"^"^[[<_~~~][^").".".("{!!!"^"_~~~").".".("
|||"^"^[^").".".("{!!!"^"_~~~").".".("|/|"^"^%^")."})")#;_=$$/$$;$__=(___=(__=_
+_)<<_)<<_;$><<"$_="+(_=""<<(___<<__+_)+$__-_)+($_+_+";$___="+_+$___+_+$___<<__
+$__)#*/=_=+[];$$=""+{};_$=""+[][++_];$$$=""+!_;$$_=""+!$;$$=_[__$=($__=$$[_$$=
_+_+_+_+_])+$$[_]+_$[_]+$$$[_+_+_]+$$[_$$+_]+$$_[_]+_$[$]+$__+$$_[$]+$$[_]+$$_[
_]][__$];$$($_)()
神秘的な理由でこの正規表現が Perl Quine の本体
http://d.hatena.ne.jp/shinichiro_h/20061107#1162835826