perl -e '$\=$/;@_=split//,$^O;print for(@_);'