$pi = "3.14159"; 
 
foreach (split(//,$pi)) { 
  $foo .= chr(int("10" .$_)) unless /\./; 
} 
print $foo,"\n";