@out = grep($_ ne $prev && ($prev = $_), @content);
foreach my $line (@out) {
   print $line;
}