MemeMachineGo!

At PerlMonks today:

#!/usr/bin/perl -w
use strict;

     my$f=           $[;my

   $ch=0;sub       l{length}

 sub r{join"",   reverse split

("",$_[$[])}sub ss{substr($_[0]

,$_[1],$_[2])}sub be{$_=$_[0];p

 (ss($_,$f,1));$f+=l()/2;$f%=l 

  ();$f++if$ch%2;$ch++}my$q=r

   ("\ntfgpfdfal,thg?bngbj".    

    "naxfcixz");$_=$q; $q=~

      tr/f[a-z]/ [l-za-k] 

        /;my@ever=1..&l

          ;my$mine=$q

            ;sub p{

             print

              @_;

               }

                         

       be $mine for @ever

Yes, that’s working Perl code. No, not all Perl code looks like that. The heart shape is totally optional. It produces the output:

kristen, will you marry me?

The poster’s intended said yes. Awww…