for(0..10) { if(/2/../5/) { print; } } #### my $flag; for(0..10) { if(/2/) { $flag = 1; } print if $flag; if(/5/) { $flag = 0; } }