#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=880228
use warnings;

sub squeeze
  {
  no warnings; 
  my $prev = not $_[0];
  return grep +($_ ne $prev, $prev = $_)[0], @_;
  }