#!/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/&/&/g;
$inText =~ s/</&lt;/g;
$inText =~ s/>/&gt;/g;

print $inText;