my $prev;

while (<>) {
    next if ($_ eq $prev);
    print $prev = $_;
}

##</code><code>##

my $prev;

while (<>) {
    print $prev = $_ unless $_ eq $prev;
}

##</code><code>##

my $prev;
$_ ne $prev and print $prev = $_ while <>;