Текстовый редактор на perl

[Max1548]

Написал редактор, но с ошибкой, которую найти не могу, он считывает все текстовые файлы, но если там есть пустая строка, то он останавливается.
Просьба помогите.
Вот код:

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser); 
use CGI qw( :standard);

my $write = param ("write") || "";
my $file = param ("file") || "Ура.txt";
my $text = param ("text") || "";
my $nfile = param ("newfile") || $file || "";
$file2 = \$file;

if ($write eq "saved") {
$write = "Файл успешно сохранен<br>\n";
}
elsif ($write eq "help") {
$write = "Помощь:<br>Чтобы открыть/создать файл введите его имя.<br>Чтобы сохранить его нажмите сохранить.<br>";
}
else {
$write = "";
}
if ($file ne "") {
print "Content-type: text/html\n\n";
print "<Title>Текстовый редактор</title>";
print "$write\n";
open (FILE, "$file");
flock (FILE, 2);
{
 local $/ = "";
 $text = <FILE>;
}
flock (FILE, 8);
close (FILE);
print "<b>Файл успешно открыт: </b>\n";
print "<Form>\n";
print "<Input type=\"text\" name=\"file\" value=\"$file\">\n";
print "<Input type=\"submit\" value=\"Открыть\"><br>\n";
print "</form>\n";
print "<Form>\n";
print "<textarea name=\"text\" cols=\"72\" rows=\"25\">$text</textarea><br>\n";
print "Сохранение файла:<br>\n";
print "<input type=\"text\" name=\"newfile\" value=\"$file\"><input type=\"submit\" value=\"Сохранить\">";
}
elsif ($nfile ne "") {
open (FILE, ">$nfile");
flock (FILE, 2);
print FILE "$text";
flock (FILE, 8);
close (FILE);
print "Location: WordPad.pl?write=saved\n\n";
}
else {
print "Content-type: text/html\n\n";
print "<Title>Текстовый редактор</title>";
print "$write\n";
print "Введите имя файла:\n";
print "<Form>\n";
print "<Input type=\"text\" name=\"file\" value=\"$file\">\n";
print "<Input type=\"submit\" value=\"Открыть\"><br>\n";
print "</form>\n";
}
print "<br><a href=WordPad.pl?write=help>Помощь</a>\n";

[ssdm]

open (FILE, "$file");
flock (FILE, 2);
{
 local $/ = "";
 $text = <FILE>;
}
flock (FILE, 8);
close (FILE);

В этом участке кода вы считываете одну условную "строку" использя разделитель пустую строку.
Замените это творение

{
 local $/ = "";
 $text = <FILE>;
}

на

 $text.= $_ while <FILE>;