Select Code to Download

use strict;
use warnings;

...
}
@array = @temp_array;
{ local $, = '|'; print @array; }

use strict;
use warnings;

...
@array = @array[grep {$_} map {$counter++; /a/ ? undef : $counter;} @a
+rray];

{ local $, = '|'; print @array; }

noot|mies|wim|zus|jet|teun|vuur|gijs|kees|bok|weide|does|hok|duif