Select Code to Download

my($user, $var) = split /:/, $_, 2;
$foo{$user} = $var;

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.