I wrote this multi-layered instead of doing homework.
It's not really that special, but it was fun anyway.
For best effect, load into Vim with perl syntax highlighting.
###############################
eval(reverse(pack('c*',map(hex#
("0x$_")+4,grep(!m#[^0-9a-f]#,#
###############################
qw&)))));;;;;;;;;;;;;;;;;;;;;;#
qw( 79 25 25 5b 3c 1c 28 25 ),#
qw( 30 27 5b 20 24 6e 64 5f ),#
qw( 1c 6c 5d 69 24 28 25 24 ),#
qw( 6d 24 6a 65 6b 66 1c 68 ),#
qw( 5d 72 61 77 73 6d 1c 5e ),#
qw( 71 6f unpack grep print ),#
qw&)))));;;;;;;;;;;;;;;;;;;;;;#
###############################
##########################################
&qw(qw@6 6 6@ #
,qw(111 113 94 28 115 107 110 96 28 119)#
,qw(105 117 28 32 111 100 101 98 112 )#
,qw(57 111 100 101 98 112 55 101 98 )#
,qw(36 32 111 100 101 98 112 28 97 )#
,qw(109 35 70 113 111 112 35 37 119 )#
,qw(111 113 94 119 108 110 101 106 )#
,qw(112 32 111 100 101 98 112 42 35 )#
,qw(28 35 42 111 100 101 98 112 121 )#
,qw( 55 121 97 104 111 97 119 111 113 )#
,qw(94 119 32 111 100 101 98 112 42 )#
,qw(35 28 35 42 111 100 101 98 112 121 )#
,qw(55 121 121 115 107 110 96 36 35 70 )#
,qw(113 111 112 35 37 41 58 36 115 107 )#
,qw(110 96 36 35 61 106 107 112 100 97 )#
,qw(110 35 37 41 58 36 115 107 110 96 )#
,qw(36 35 76 97 110 104 35 37 41 58 36 )#
,qw(115 107 110 96 36 35 68 93 95 103 97)#
,qw(110 35 37 41 58 36 30 88 106 30 37 )#
,qw(37 37 37 55 6 6 6) #
); #
##########################################
