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