use strict;
use warnings;
binmode STDOUT, ':encoding(UTF-8)';
use Encode qw/decode_utf8/;
while (<>) {
    $_ = decode_utf8 $_;
    s/\W//g;
    print;
}