print  grep {  $_ ne $^PRE }  (a,a,a,a,b,c,c,a,a,d,e,e,e,e);
abcade