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