Здравствуйте! недавно начал учит перл занялся регекспами. решил парсить басню крылова а именно выделить из нее слова «Ворона» и «Лисица» в результате скрипт парсит строки в которых в начале стоят слова Ворона и Лисица и на выходе получаются следующие строчки
Лисица видит сыр, Лисицу сыр пленил.
Ворона каркнула во все воронье горло:#!/usr/bin/perl
open(FILE,"text.txt") or die "Невозможно открыть файл: $!";
$text = <FILE>;
while ($text=<FILE>){
if ($text =~/^Лисица/) {
print $text
}
if ($text =~/^Ворона/) {
print $text }
}
