#!/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."); binmode(STDOUT, ":encoding(UTF-8)"); foreach (split //, $input) { print chr(0xFEE0 + ord($_)); } print "\n";