my $c=";";my $q=q;print 'my $c="'.$c.'"'.$c.'my $q=q'.$c.$q.$c.$c.'eva +l $q'.$c;;eval $q; [download]
In reply to One-Line Quine by beretboy