Beautiful!
And because it's only one statement (one 'variable' plus a wicked /x'd regex) perl -MO=Deparse doesn't even begin to shed any light on this!
$ 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
)\W*(?{$^R.(0+(
q{a}lt$3))}))
{8}(?{print
+pack"B8"
,$^Rand
""}))
+/x;
valentine.pl syntax OK
/me waits for the vote fairy to give him some more votes this evening
--chargrill
$/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ }
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );