$s = '\u0069\u006d\u0070\u006f\u0072\u0074\u0061\u006e\u0074';
$s =~ s/\\u(....)/chr hex $1/ge;
say $s;

__END__
important