Code:
$string =~ s!&(\S+)!{$1}!g;  ## $string contains the string