open OUTPUT, join "", map chr,112,114,116,51,46,116,120,116;
$\="";
$/=\1;