Did you mean

$str =~ s/&(.*?);/&$1 ;/g;
[download]

perhaps? Your code as it stands seems to lose the text after the ampersand.

Cheers,

JohnGG