regex are:

$text =~ s/&(?!amp|quot|apos|lt|gt)/!38/g;
$text =~ s/"(?!amp|quot|apos|lt|gt)/!34/g;
$text =~ s/<(?!amp|quot|apos|lt|gt)/!40/g;
$text =~ s/>(?!amp|quot|apos|lt|gt)/!41/g;
$text =~ s/'(?!amp|quot|apos|lt|gt)/!39/g;