#!/usr/bin/perl -w
use strict;

my(@IN) = @ARGV;

my($str) = shift(@IN)||'';

my(@chars) = split(//,$str);

foreach (@chars) {

   $_ = '&#' .ord($_) .';';
}

print join('',@chars);

exit;