print "$_
\n" for (split //, $data);