use utf8;
$read_buf =~ m/^\W/;
$utf8_char = $&;