http://www.perlmonks.org?node_id=530128

Because it's Valentine's Day and all.
q'Sh ELoV eSMeshEl OvEsmeNO tsHeloVeSM EShELOVESm eNOTShEloVes mESheLovesMe noTsHELovEsMESHelOVeSmEnotS HeLOVeSMESHElOvESMENotSHeLo VesmEShELovEsmENOTsHELOVE smEsHELOveSMeNoTshELOVe SmesHElOVesmEnOTSheLO vEsMeshELoVESmEnoTS HELOvEsM'=~/(((\w )\W*(?{$^R.(0+( q{a}lt$3))})) {8}(?{print +pack"B8" ,$^Rand ""})) +/x

Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart