my @comp = "seed\n";                                # Fix 1 
while ($line = <>) {
   push(@comp, $line);
   print $line if $comp[0] =~ /^\Q$comp[1]\E\z/;    # Fix 2
   shift(@comp);
}

##</code><code>##

my @comp = "seed\n"; 
while ($line = <>) {
   push(@comp, $line);
   print $line if $comp[0] eq $comp[1];
   shift(@comp);
}

##</code><code>##

my $last = ""; 
while (<>) {
   print if $_ eq $last;
   $last = $_;
}