while(<DATA>) {

  chomp;
  print "pleasure - $_\n" if ($_ ne $old) && ($old = $_);
}

__DATA__
apples
apples
apples
oranges
pears
bread
bread