Correction to question. I'm really using '\X' not '\W' for the match pattern. Typos Happen.

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