Heh, I find this one really funny...!

Nice Work !

for$k(split(/2/,65211521092111)){print chr($k);}