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";
}