in reply to
General quine
inspired:
print$`,$`,q(print$`,$`,q(1)=~1,$',$')=~1,$',$'
or a bit shorter
print$`,$_=q(print$`,$_=q( ),$' x/ /),$' x/ /
update: more regex quine
print q(print q(1)=~/((\D+)|.)/g)=~/((\D+)|.)/g
In Section
Obfuscated Code