sub xml_compliance { my ($self, $field) = @_; $field =~ s/&/&/g; $field =~ s//>/g; $field =~ s/"/"/g; $field =~ s/'/'/g; return $field; }