[BAKyyM_666]

Отвечаю на свой же впрос:

print "<br>$1" while $doc =~ m!([абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ]+)!g;