$ 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 #### $/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ } sig map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu" );