http://www.perlmonks.org?node_id=835773


in reply to One more quine
in thread How I Learned About Quines

Alphabetic quine

s sslcsene s sa zs sgxlt print lc for uc sazsslcseneazsazsaazzsazsgxltazprintazlcazforazucaz

update: fixed for perl 5.8 thanks to choroba

s ssab x ab ttucte x ab ttab ababt x ab ta btabtgx x print lcs x s ttucte x s tts sst x s ta btstgx x print lc

Pack ascii quine

+print pack'h*a*',$x,$x=b2072796e64702071636b67286a216a272c24287c24287d3

And another printf quine

printf'%s(%1$s)',q(printf'%s(%1$s)',q)