#!/usr/bin/perl
# fw.pl - make text W-I-D-E (convert ascii to fullwidth)
# use encoding "UTF-8";
use utf8;
$input = $ARGV[0] or die("need one argument for text");

foreach (split //, $input) { 
  print chr(0xFEE0 + ord($_)); 
}
## end script