#!/usr/bin/perl
#replace_selected

use strict;
use Encode qw(from_to);

my $inText = $ARGV[1];
&from_to( $inText, 'utf-8', 'euc-jp' );	#'shiftjis' 'utf-8'

$inText =~ s/([\x00-\x7F])/ &refEncode( $1 ) /gie;	#１バイト文字
$inText =~ s/([^\x00-\x7F].)/ &refEncode( $1 ) /gie;	#２バイト文字
print $inText;

sub refEncode
{
	my $inChar	= shift;
	&from_to( $inChar, 'euc-jp', 'UCS-2BE' );
	return '&#' . unpack('n', $inChar) . ';';
}