Select Code to Download

use v5.12;
use warnings;
...
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;