$x="12345"; while ($x=~ /./g) { print $&; } print "\n";