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