я есть файл, в котором я должен заменить все слова, такие как $ xyz, и для них мне нужны замены, подобные этим:

$xyz with ${xyz}.
$abc_xbs with ${abc_xbc}
$ab,$cd  with ${ab},${cd}

В этом файле также есть такие слова, как $ {abcd}, которые мне не нужно менять. Я использую эту команду

Файл sed -i 's? \ $ ([A-Z _] +)? \ $ {\ 1}? g'

он работает нормально в командной строке, но не внутри скрипта Perl, как

sed -i 's?\$\([A-Z_]\+\)?\$\{\1\}?g' file;

Чего мне не хватает? Я думаю, что добавление некоторых обратных косых черт поможет. Я попытался добавить некоторые, но безуспешно.

Спасибо