Works as expected for me. What character did you use as your test character? What version of Windows and Perl are you using?

Nice post BTW - much improved on your previous one. :)