Select Code to Download

$_ ne "DontPrintMe" and print for @Array;

for (@Array) {
   next if $_ eq "DontPrintMe";
   print;
}

for (my $i = 0; $i < @Array; ++$i) {
   print $Array[$i] unless $Array[$i] eq "DontPrintMe";
}