Wide-Latin bash script?

Is there any script, preferably bash or Perl, that will convert normal ASCII ("deal") into wide-width latin ("ｄｅａｌ")?

Thanks.

#!/usr/bin/perl -pl
use encoding utf8;
y/!-~/\x{ff01}-\x{ff5e}/;

and for >>5:
#!/usr/bin/perl -l40
use encoding utf8;
y/!-~/\x{ff01}-\x{ff5e}/ and print for @ARGV;