$a !~ /\p{IsPrint}/

##</code><code>##

$a =~ /\P{IsPrint}/