sub entity {
    my @data = @_;
    foreach my $zw( @data ) {
        $zw =~ s/\&/&/g; #&
        $zw =~ s/"/"/g;  #"
        $zw =~ s/\'/'/g; #'
        $zw =~ s/>/>/g;   #>
        $zw =~ s/</&lt;/g;   #<
        $zw =~ s/\n/<br>/g;  #\n
    }
    return @data;
} #entity