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