$string = "Hello World";
print join("\n",split //,$string), "\n";