my $text = "Hallo Welt.";

# index sucht die Position des Leerzeichens von rechts ab Position 0
# substr überschreibt dann in $text ab der gefundenden Position den Reststring mit dem zugewiesenen String
substr($text, index($text, ' ', 0) ) = '';

print ">$text<\n";