Okay, so this probably isn't necessary, but here it is anyway:


open(RULES,"$0");                      # Read in the source code of this file
while (<RULES>)
  {
  if ($_ !~ "[a-zA-Z\{\}]")            # If the line doesn't contain code
    {
    tr/ 	/01/;                  # Translate Tabs & Spaces to 1's & 0's

    print(unpack("a",pack("b8",$_)));  # Turn a binary string into a character
                                       # and print it.
    }
  }
close(RULES);
