$text =~ s/&/&/gi; $text =~ s/&/&/g;