Select Code to Download

foreach my $a (1 .. 5) {
    next while ($a != 2);
}

my @strings = ('a', 'b', 'c', 'd', 'e', 'f');
while (my $s = shift @strings) {
...
    next while ($s =~ /a/ .. $s =~ /c/);
    print "$s is OK!\n";
}

my @strings = ('a', 'b', 'c', 'd', 'e', 'f');
while (my $s = shift @strings) {
    print "Looking at $s\n";
...
    next if $value;
    print "$s is OK!\n";
}

Looking at a
The value is 1
...
Looking at f
The value is
f is OK!