for(  qw( foobar foobaz )  ) {
    /(oo)/;
    {
        /(ar)/;
        print "($1) ";
    }
    print "[$1]\n";
}

##</code><code>##

(ar) [oo]
(oo) [oo]