for (0..9) {
    print "line1\n";
    print "line2\n";
    if ($cond =~ /pattern/i) {
        do something;
    }
}