A simple quine

I wrote a quine:

	my $x = 'my $x = X;
	$y = chr(39) . $x . chr(39);
	$x =~ s/X/$y/;
	print $x;
	';
	$y = chr(39) . $x . chr(39);
	$x =~ s/X/$y/;
	print $x;

view raw quine.pl hosted with ❤ by GitHub