Select Code to Download

$file_data =~ s/\n\n+/\n/gs;

  # Suggest using scalar filehandles and checking to
  # see if open succeeded...
...

  # process $file_data
  # etc...

$file_data =~ s/\n[\s\n]+/\n/gs;

$ perl -ni -e 'print if /\S/' *.shtml