my $text = "Hallo Welt.";

# splitte an Leerzeichen in 2 Teile; verwende nur den ersten Teil
$text = ( split / /, $text, 2 )[0];

print ">$text<\n";