#!/usr/bin/perl
#
#
use Unicode::Escape;

while(my $var=<>) {
	$escaped = Unicode::Escape::escape($var);
	print $escaped;
}