sub ord_dump {
  join(' ', map { ord($_) } split(//, $_[0]));
}
print ord_dump($text), "\n";