#!/usr/bin/perl

foreach my $file (@ARGV) {

    # Open the file adding contents to the output.
    open FILE, "<$file";
    my $oldline = '';
    my $contents = '';
    while (<FILE>) {
	chomp;
	if (($oldline ne $_) && (! m/unsupported/i)) {
	    $contents .= "$_\n";
	}
	$oldline = $_;
    }
    close FILE;

    # Write this back out to the file.
    open FILE, ">new/$file";
    print FILE $contents;
    close FILE;

}
