You can also use the following script.

$str=~s/&(\w+)/{$1}/g
print $str