Select Code to Download

for (my $i = 1; $i <= 9; $i++) {
  s/\s/;/;
}

for (1..9) {
  s/\s/;/;
}

for my $i (1..9) {
  s/\s/;/;
}