#!/usr/bin/perl 
#
# Dump all utf8 charcaters
#
for($i=160;$i<10000;$i++){print chr $i, $i%30?" ":"\n"}