#!/usr/bin/perl -w

use strict;

binmode \*STDOUT, ":utf8";

while (my $in = <STDIN>)
  {
    my ($n) = $in =~ /^(.{4})/;

    eval qq(print "\\x{$n}");
  }