map ord, split // #### local( $,, $\ ) = ( ' ', "\n" ); while () { chomp; print map ord, split // }