gudn tach!
$text=~s/^(.{0,100}.*?)(\s.*)?$/$1/;
man kann evtl. noch etwas zeit sparen und den code etwas uebersichtlicher halten:
$text=~s/^(.{0,100}\S*).*$/$1/;
prost
seth
nicht angemeldet nicht angemeldetgudn tach!
$text=~s/^(.{0,100}.*?)(\s.*)?$/$1/;
man kann evtl. noch etwas zeit sparen und den code etwas uebersichtlicher halten:
$text=~s/^(.{0,100}\S*).*$/$1/;
prost
seth