#!/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'

my @lines = split( /\r/, $inText );

$lines[0]		= "<ol>\n<li>$lines[0]";
$lines[ $#lines ]	.= "</li>\n</ol>";

my $outText = join( "</li>\r<li>", @lines );
#&from_to( $outText, 'euc-jp', 'shiftjis' );
print $outText;