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