foreach(`cat file.pl`){
 foreach(split(//,)){
  print ord;
}


}