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