#!/usr/bin/perl
use strict;
use warnings;
use HTML::Entities qw(encode_entities);

my $str = ".@\n";
print encode_entities($str);
print encode_entities($str, '<>&".@');
__END__
.@
&#46;&#64;