my $str = "perlmonks";
print map { "&#$_;" } unpack 'C*', $str;

__END__

&#112;&#101;&#114;&#108;&#109;&#111;&#110;&#107;&#115;