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

##</code><code>##

split //,$string