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