Select Code to Download

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

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