#!/usr/bin/perl

if($you eq "human") {	
	print "Hello, my friend! >-(**)-<";
} else {
	print "Go away, naughty robot!";
}

$phone = "+7(".(1000-99).")".(17**2*2)."-LXXVII-0".(1+1+1+1);

$email = "zdenix";
$email=~s/([deinxz]*)/$1\@$1.ru/;

$jabber = $email;

$location = 7+190+140090+hex(0x41B)+hex(0x435)+hex(0x441)+hex(0x43D)+hex(0x430)+hex(0x44F)+hex(0x20)+2+(5*7);