$s = '\u0069\u006d\u0070\u006f\u0072\u0074\u0061\u006e\u0074';;

$s =~ s[\\u00][]g;;

print pack 'H*', $s;;
important