Select Code to Download

$string = 'ShELoVeSMeshElOvEsmeNOtsHeloVeSMEShELOVESmeNOTShEloVesmEShe
+LovesMenoTsHELovEsMESHelOVeSmEnotSHeLOVeSMESHElOvESMENotSHeLoVesmEShE
+LovEsmENOTsHELOVEsmEsHELOveSMeNoTshELOVeSmesHElOVesmEnOTSheLOvEsMeshE
+LoVESmEnoTSHELOvEsM';

...
  $letter = pack "B8", $bit;
  print "string: $_ bit: $bit letter: $letter\n";
}

string: ShELoVeS bit: 01001010 letter: J
string: MeshElOv bit: 01110101 letter: u
...
string: HeloVeSM bit: 01110100 letter: t
string: EShELOVE bit: 00100000 letter:  
...

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