#!/usr/bin/perl -w
use strict;
my $facts
="0a57697468206b6e6f776c6564676520636f6d657320706f7765722c20
6275742070617920686565640d";

my $truths
="4d6967687420636f6d6d616e64732070656f706c6520
7665727920706f6f726c7920696e64656564";

my $principals
="0d41207269676874656f7573206d616e207365657320
7768617420666577206772617370206669726d";

my $apprehension
="0d4120677265617465737420706f776572
726573706563742c 796f75206d757374206561726e090920200d";

my $humanity
= "0a                          2d 4c65657465090920200d0a";

my @knowledge 
= ($facts, $truths, $principals, $apprehension, $humanity);
            
            for my $understanding (@knowledge)
        {$understanding =~ s/([a-fA-F0-9]{2})/chr(hex $1)/eg;
            print $understanding ,"\n";}