my $s = ' ';