open (FILE," $htmlfile") || die "Cannot open HTML file for parsing!: $!\n";
while(<FILE>) {
  $content="$content$_\n";
}
close(FILE);

##</code><code>##

while(<FILE>) {
  $content .= "$_\n";
}

##</code><code>##

{
  local $/; # undefs $/ for this block of code only

  open (FILE," $htmlfile") || die "Cannot open HTML file for parsing!: $!\n";

  $content = <FILE>; # reads in whole file

  $content =~ s/\n/\n\n/g; # if really necessary to duplicate newlines

  close(FILE);
}