view release on metacpan or  search on metacpan

author/sjis2utf8.pl  view on Meta::CPAN

#!/usr/bin/env perl

# Usage: ./sjis2utf8.pl < input_filename > output_filename

use strict;
use warnings;
use Encode qw//;

local $_ = do { local $/; <> };
$_ = Encode::decode('cp932', $_, Encode::FB_WARN);
print Encode::encode('utf-8', $_, Encode::FB_WARN);