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