#JoeCamel on http://www.perlmonks.com/
#note: requires Perl5.6.0 or better
#!/usr/bin/perl -w
use strict;

# A tribute to one of the greatest films of all time.
my (%primate, $monolith, $evolution, $contact);

$_ = '
primate->throw("Bone");
goto;
$$monolith;
bless %primate;
$evolution =~ m/?+*/;    #/*+?/m~=
*humanIntellect++;
$Discovery =~ m . [
            [::]>>=<>=<>=<>=(-)
            ].;
require 2001;
exists($malfunction)     #open $podBayDoors
  or die;
HAL->sing("Daisy");
sleep() *
';

my @universe = qw(15
  1 6 4 35 1  12 2 23
  2 14 1  8 2 0  5 25
  1 39 3 7 2);
my $God;
$monolith = "******";
my @spaceTime = split /;/, $_;

while (my ($space, $time) = splice(@universe, 0, 2))
{
	my $journey = shift @spaceTime;
	eval " $journey; ";
	$contact = substr($@, $space, $time);
	if ($space != ((" dimension " =~ //) + 1 + 4 + 9))
	{
		print $contact;
		next;
	}
	my $starChild = $contact;
	print uc $starChild

}