# your string of secret numbers
$obfu = '16.115.16.117.6.106.16.113.1.116.1.32.11.36.11.76.16.120.16.118.6.117.6.33.1.65.1.110.1.111.6.117.1.104.16.104.16.117.6.33.1.80.1.101.1.114.6.109.1.32.16.75.1.97.6.100.6.108.11.103.6.115.16.37.16.62';

# Split them on the periods
@MagicNums = reverse split /\./, $obfu;

while( @MagicNums != 0 ) {

	# Use the magic numbers two at a time
	$num1 = pop( @MagicNums );
	$num2 = pop( @MagicNums );
	
	# The mysterious formula to calulate the ascii value for 
	# the next character
	$num = $num2 - ( $num1 / 5 - 1 ); 
	
	# turn it into a character
	$char = chr( $num );
	
	# String all the characters together to produce:
	# print "Just Another Perl Hacker";
	$TheSecret .= $char;
}

# run the program
eval $TheSecret;