while (<DATA>) {
   chomp;
   $_ =~ s/^(&)(\w+(\([\"\'\$\w]*\))?)(\(\))$/$2()/;
   print "$_\n";
}