Есть текст, как взять из него первые 10 слов?

[Yuraz]

А как взять первые 100 букв из переменной?

[Mog.]

if ($peremennaya=~/(.{100})/){$sto_znakov=$1}

ента штука первых 100 знакомест берет, ну а если чиста букв, то наверно регулярно выражаться надо примерно

/([a-zA-Z]){100}/

или правильней будет подставить \\w вместо [a-zA-Z]  
тогда тока буквы

[Yuraz]

Mog. , спасибо, но если в переменной менее 100 символов, у меня что то всё работает наоборот... Берётся что то из середины, печатается не понятно что то.

       $obiavl="";
       $sto_znakov="";
       $obiavl="$row[15]";   # тут от 10 до 500 символов
       if ($obiavl=~/(.{100})/){$sto_znakov=$1}
       print "$sto_znakov";   # надо напечатать не более 100

[YA]

.{100} - ровно 100 символов
.{0,100} - до 100 символов

$sto_znakov=($obiavl=~/^(.{0,100})/)[0];

Но проще использовать substr. Регулярные выражения здесь не нужны.

Mog.
\\w == [0-9a-zA-Z]

[Yuraz]

YA именно substr больше всего и помогло. Спасибо!