while (local $_ = match('a')) {
        print "- $_\n";
    }