in reply to Regex to add text if text is missing

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

[download]
If you're using Windows, turn ' into ". Always mount a scratch monkey.

--
[ e d @ h a l l e y . c c ]

In Section Seekers of Perl Wisdom