#!/usr/bin/perl

$linep="";

while (defined($line = <STDIN>)) 
  { 
    if ($line eq $linep) {} else { print $line; $linep=$line; }
  }
