my @chars = split(//, $string);

##</code><code>##

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