#!/usr/bin/perl
while (<>) {
        print unless ($_ eq "\n") && ($_ ne $last);
        $last = $_;
}