I wrote my first quine today, in Perl. It was surprisingly simple:
$_=q($_=$$;
s/\\$\\$/q($_)/;
print;
);
s/\\$\\$/q($_)/;
print;
Next step: ETA.
Update 13:03: Someone beat me to it. Warning: the first line of the source is 11k characters long, which crashed my browser.