in reply to Re: delete multiple occurrencesin thread delete multiple occurrences
my @anew = map { $_ == 0 || $b[ $_ -1 ] ne 'z' || $b[ $_ ] ne 'z' ? $a[ $_ ] : () } 0 .. $#a; [download]