local $, = ' '; print map { ord $_ } split //, $row;