Add an "escape" token for those function calls:

@tokens = ( "(", qr/(?:[ab]func\([^)]*\))/, \@tokens, ")" );
[download]

Parsing contents in-between the function call parentheses is left as an exercise.

By the way, your second $str is unbalanced.