$ perl -MO=Deparse valentine.pl
"Sh         ELoV\n   eSMeshEl     OvEsmeNO\n  tsHeloVeSM   EShELOVESm\n eNOTShEloVes mESheLovesMe\nnoTsHELovEsMESHelOVeSmEnotS\nHeLOVeSMESHElOvESMENotSHeLo\n VesmEShELovEsmENOTsHELOVE\n  smEsHELOveSMeNoTshELOVe\n   SmesHElOVesmEnOTSheLO\n    vEsMeshELoVESmEnoTS\n     HELOvEsM" =~ /(((\w
      )\W*(?{$^R.(0+(
       q{a}lt$3))}))
        {8}(?{print
         +pack"B8"
          ,$^Rand
           ""}))
            +/x;
valentine.pl syntax OK