#!/usr/bin/perl
use utf8;
binmode STDOUT, ":utf8";
$str="ąęó";

$str=~s/[\W]/X/g;
print "$str\n";