{
	use charnames ':full';
	use feature 'say';
	for my $c ( split //, $text ) {
            say Dumper $c, ord $c, charnames::viacode( ord $c );
        }
}