$greet =~ s{#\{(\w+)\((\({0,1}\w+\){0,1})\)\}#}{$obj->{"$1"}->($2)}eg;