Remove the duplicated line present only next to each other with Perl

Jit — Wed, 24 Jan 2018 15:35:15 -0600

#!/usr/bin/perl
use strict;
use warnings;

{
  $_ = ;
  my $next_line;

  while( $next_line =  )
  {
    #print "current line: $_ -- next line: $next_line$/";
    print $_ if $_ ne $next_line;
  }
  continue
  {
    $_ = $next_line;
  }
print $_ if eof;
}
__DATA__
apple
apple
plum
vinegar
apple
banana
banana
banana
apple

BOL: Remove the duplicated line present only next to each other with Perl

Remove the duplicated line present only next to each other with Perl