my $data = "Goodbye in Japanese is \x{3055}\x{3088}\x{306A}\x{3089}.";