perl -e '
  $f = "\$foo \$(bar) \n";
  $f =~ s/\$ (?: (\w+) | \((\w+)\) )/<$^N>/xg;
  print $f;'