my $row = <$fh>;
local $, = ' ';
print map { ord $_ } split //, $row;