my $last; while (my $line = <$fh>) { next if defined $last and $line eq $last; print $line; $last = $line; }