Неа, так тоже не прокатит, во первых надо ^ надо наверное заменить на ^|\n, а во вторых это тока для alphanumeric-символов, т.е. если к примеру встретится слово "++" то регулярка его пропустит (

зы. Только что поигрался с тем что ты предложил, тока немного поправив $data =~ s/\n\w{1,2}\n//gm, всеравно пропускает слова длинною <=2 в случае если они идут друг за другом. Запутался я совсем чегото