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