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