while ($looping) {
   do_something if condition_one .. condition_two;
}

##</code><code>##

while (<DATA>) {
   print if /two/ .. /four/;
}

__DATA__
line one
line two
line three
line four
line five