Right.  I was just showing how the regex works.

$ perl -le'"%xyz"=~/([\$@*%]|(<))(.*)((?(2)>))/;print"($1)($3)($4)"'
(%)(xyz)()
$ perl -le'"%xyz>"=~/([\$@*%]|(<))(.*)((?(2)>))/;print"($1)($3)($4)"'
(%)(xyz>)()
$ perl -le'"<xyz>"=~/([\$@*%]|(<))(.*)((?(2)>))/;print"($1)($3)($4)"'
(<)(xyz)(>)
[download]

  p