perl  -p -i~ -e 's/\&([\w]+)\s*(?!\()/$1()/g'  *.pl *.pm *.cgi