# # _this_ is the answer to life the universe and everything # use strict; $/=""; for(split(//,)){($a)=$_=~/([\w\d\s])/ ; $@.=$a;}$@=~s/[\s\n]+//gim;$@=~s/tf/t\'f/;$@.="\n'"; eval ($@); __DATA__ () ()*$@ (*&))& )&)()&}{@ }{%}% }#{ %!}%{ !!) (p)(# $)& ! #$*!( ))!% ! #}#!$ {}{ !$!#$%r)(%@%@%{{@#!%@#%@{{~@# !@#in)&!)(&#%@%$%@{}{!|}{|{|}{? !//,./.,?>??#< ! ?(*^# $^#> [;\\!;' ' .'][;[]#] -o )*&)^ )@# $% )&^&^ *&* $ &^r^$ #t@% !) !@#$! !(@$& <"@ {t{}! (* {}!%# *$&#@' @&$ )$@^+ }{\\.]/, )+\]$} *$*!! )(^w!#%][\{{;\<>/ *&)[;\ *^!#%[\,.'o$@^ [] @%)!@!#$% #