DB<2>  my $p; print map { $p ne $_ ? $p = $_ : () } (a,a,a,a,b,c,c,a,a,d,e,e,e,e)
abcade