if ($str !~ /^[\x{00}-\x{ff}]*$/) {
	say "JA";
}
else {
	say "NEIN";
}