正規表現について２
すみません、前回「正規表現について」でお世話になりました者です。
前回の分は解決したのですが、それに関連してもう少し教えてください。
data.txt----------------------------------------
aaabbbccc
aaadddccc
aaaeeeccc
------------------------------------------------
test.pl-----------------------------------------
#!C:\Perl\bin\perl
use CGI;
my $q = CGI->new;
$q->charset('Shift_JIS');
print $q->header(-type => "text/html");
my $line=0;
open(IN,"<data.txt");
open(OUT,">output.txt");
while(<IN>){
if ($line++==0){
$output1="$1" if/aaa(.*?)ccc/;}
s/aaa(.*)ccc/$1/ if (?aaa(.*)ccc?);
print OUT;
}
close(OUT);
close(IN);
print $output1;
------------------------------------------------
とすることで、得られたい結果である、
output.txt--------------------------------------
bbb
aaadddccc
aaaeeeccc
------------------------------------------------
IEでの表示--------------------------------------
bbb
------------------------------------------------
となりました。そこで今回教えていただきたいのは、
data.txt----------------------------------------
＜空行＞
aaabbbccc
aaadddccc
aaaeeeccc
------------------------------------------------
というようにdata.txtのはじめが空行の場合にも、
上記と同じような結果を得たいです。output.txtの
はじめは空行になっても構いません。得られる文字として、上と同じ結果がほしいです。どうしたらよいでしょうか？よろしくお願いします。
