$string =~ s/ .*//;