(?{
    local $genus   = '';
    local $dbfound = 0;
 })

 ^

    (?:  ([A-Z][A-Z]+)  (?{
                            $genus   = ucfirst(lc($^N));
                            $dbfound = dbilookup($genus);
                        })
    )

 $    

 (?{
    #   
    #  further processing of values 
    #  (give back values to container program) 
 })