#!/usr/bin/perl -CIOESA -w

use charnames qw/:full/;

#print ord($_), "\n" for @ARGV;

for(@ARGV) {
	for(split "") {
		my $c = ord;
		printf("%s\t%d\t%04x\t%s\n", $_, $c, $c, charnames::viacode($c)) for split "";
	}
}