Palindromic Quine by jonathan camacho

my $last=";print q/my \$last=/ ~ \$last.perl ~ \$last ~ \" # \" ~ \$last.flip ~ \$last.perl.flip ~ q/=tsal\$ ym/";print q/my $last=/ ~ $last.perl ~ $last ~ " # " ~ $last.flip ~ $last.perl.flip ~ q/=tsal$ ym/ # /my $last=/q ~ pilf.lrep.tsal$ ~ pilf.tsal$ ~ " # " ~ tsal$ ~ lrep.tsal$ ~ /=tsal$ ym/q tnirp;"/my $\last=/q ~ pilf.lrep.tsal$\ ~ pilf.tsal$\ ~ "\ # "\ ~ tsal$\ ~ lrep.tsal$\ ~ /=tsal$\ ym/q tnirp;"=tsal$ ym

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top