$name =~ s/\s.*//;  # replace space and all following characters with empty string