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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

Looking at a
The value is 1
Looking at b
The value is 2
Looking at c
The value is 3E0
Looking at d
The value is
d is OK!
Looking at e
The value is
e is OK!
Looking at f
The value is
f is OK!