use Perl or die;
unlink($0);
$_= q{$_= q{x};s/x/$_/;print};s/x/$_/;print