For simplicity in a Perl text editor its hard to look past this one-line wonder from hiseldl ... :-)

perl -MTk -MTk::TextUndo -e "(tkinit)->Scrolled('TextUndo')->pack;Main
+Loop"
[download]

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000001000110001"))'