#!/usr/bin/perl

print "What file do you want to run this program on?\n";
$TheFile=<STDIN>;
chomp ($TheFile);

open(FILE, $TheFile) or die "Can't open $TheFile.\n";
local $/ = undef;
$lines = <FILE>;
close(FILE);

while ($lines =~ /\n\n/) {
	$lines =~ s/\n\n/\n/gms;
	}
open(FILE, ">output.txt") or die "Can't open output.txt.\n";
print FILE $lines;
close FILE;