system("chmod u+w $file");
open(W,">$file") or die "can't open $file for writing: $!";
select W; $| = 1; select STDOUT;
- $newline = ''; #avoid prepending extraneous newlines
$all = join('',@file);
$mode = 'html';
#die;
next;
} elsif ( $all =~ /^<%(.*)$/s ) {
- print W $newline; $newline = "\n";
+ print W "\n";
$all = $1;
$mode = 'perlc';
next;