gudn tach!
$str=~s/^(.{1,19}(?:$|.|[^.]+)).*/$1/;
etwas leserlich
gwohnheits-/geschmackssache.
) # da ist etwas falsch
stimmt, der punkt wird u.u. mitabgeschnitten. oder meintest du was anderes?
Das lässt sich aber leicht beheben.
haettest ruhig angeben koennen, wie. ;-)
$str=~s/^(.{1,19}(?:$|.|[^.]+.)).*/$1/;
prost
seth