#! /usr/local/bin/perl
## process  utf8-encoded letters
for Perl version 5.8 or later.

use utf8;
use encoding "utf8";

#use encoding "utf8", STDIN=>'utf8', STDOUT=>'euc-jp';
##  --- if you want to print-out the letters in euc-jp

use open 'utf8';

while(<>) {
  @z = split(//, $_);
  print join(" ", @z) . "\n";
}