Text schneiden bei 100 Zeichen

[Stefan Welscher]

Müsste mit Regex funktionieren:

z.B.:
$text=~s/^(.{0,100}.*?)(\s.*)?$/$1/;