Select Code to Download

$ perl -MO=Deparse valentine.pl
"Sh         ELoV\n   eSMeshEl     OvEsmeNO\n  tsHeloVeSM   EShELOVESm\
+n eNOTShEloVes mESheLovesMe\nnoTsHELovEsMESHelOVeSmEnotS\nHeLOVeSMESH
+ElOvESMENotSHeLo\n VesmEShELovEsmENOTsHELOVE\n  smEsHELOveSMeNoTshELO
+Ve\n   SmesHElOVesmEnOTSheLO\n    vEsMeshELoVESmEnoTS\n     HELOvEsM"
+ =~ /(((\w
...
           ""}))
            +/x;
valentine.pl syntax OK

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );