@lines=<SOURCE>;
 $b=@lines[0];
$b =~  s/(.)/sprintf"\\u%04x",ord$1/ge;
 print $b;