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