#!/usr/bin/perl -w
use strict;

my $life ="empty";
print my$query= "What is the meaning of life", "?\n\n";
my @WORLD=qw/affection compassion humility are everything/;


print "1) Never obscure ", my $the_long_road=pack("b*","11001110100101101011011000001110001101101001011011000110100101100010111010011110"),"\n";
print "2) ", meaning_of_life();

sub meaning_of_life {
return $life=pop @WORLD, " ",substr(shift @WORLD, 0, 6),substr($the_long_road,0,1), " $life", "\n\n";
}