$string=<stdin>;chomp$string;$l=length(string);$p=0;while($p<$1){$n=substr($string,$p,1);print"$n\n";$p++;}
omar
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!