use utf8; $read_buf =~ m/^\X/; $utf_char = $&;