Strip control codes and extended characters from a string

my $str = (0..400).roll(80)».chr.join;

say $str;
say $str.subst(/<:Cc>/,      '', :g); # unicode property: control character
say $str.subst(/<-[\ ..~]>/, '', :g);

Output:

kşaNĹĭŗ‘|Ęw�•�"ÄlĄWł8iCƁę��Ż�¬ž5ĎĶ'óü¸'ÍŸ;ŢƐ¦•´ŷQċűÒŴ$ÃŅ‰Đįð+=ĥƂ+Ōĭħ¼ŕc¤H~ìïēÕ
kşaNĹĭŗ|Ęw"ÄlĄWł8iCƁ꯬5ĎĶ'óü¸'ÍŸ;ŢƐ¦´ŷQċűÒŴ$ÃŅĐįð+=ĥƂ+Ōĭħ¼ŕc¤H~ìïēÕ
kaN|w"lW8iC5'';Q$+=+cH~