#!/usr/bin/perl

use strict;
use utf8::all;

while(<>){ 
  s/([\x{80}-\x{FFFF}])/sprintf('\u%04X',ord($1))/ge;
  print $_; 
}