my $text = "Hallo Welt.";

# ersetze alles ab dem ersten Leerzeichen durch einen Leerstring
$text =~ s/ .*//;

print ">$text<\n";