Wide-Latin bash script?

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

Thanks.

: >wide ( str -- wide )
  [ [ 32 126 between? ]
    [ [ 32 = ] [ 65248 + ] [ 12288 ] smart-if* ]
    smart-when ]
  map ;