#!/usr/bin/env perl use strict; use warnings; use 5.10.0; use open qw(:std :utf8); say "\x{1161}\x{11a0}\x{11b0}\x{11c0}\x{11d0}\x{11e0}\x{11f0}\x{11ff}";