#!/usr/local/bin/perl
say do { use Unicode::UCD qw(num); say num("一") }