#!/usr/bin/perl

use strict;

if (@ARGV < 1) { die "At least one file must be specified\n"; }

foreach my $file (@ARGV) {
	# loop through each file
	if (-e $file) { # only do stuff if the file exists
		open (FH, $file);
		my @lines = <FH>;
		chomp (@lines);
		close (FH);
		my @non_blank = grep(!/^\s+$/, @lines);
		open(FH, ">$file");
		foreach my $line (@non_blank) {
			print FH $line;
		}
	}
}