use v5.12;
use warnings;
use List::MoreUtils qw/slide/; 
use Data::Dump;


my @x= split',', q(a,a,a,a,b,c,c,a,a,d,e,e,e,e);

dd grep defined, slide { $a ne $b ? $b : () } "", @x;