# Remove first &
$str =~ s/^&//;
# Remove last &
$str =~ s/&$//;
# Remove all &
$str =~ s/&//g;