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


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