<prompt> Kuandika Perl script kwamba inachukua string kama pembejeo na kuondoa wahusika wote non-printable.  <response>: Hii ni mfano wa script ya Perl ambayo inachukua kamba kama pembejeo na kuondoa herufi zote zisizoweza kuchapishwa, kwa mfano, Hii ni mfano wa script ya Perl ambayo inachukua kamba na herufi zisizoweza kuchapishwa, na kuondoa herufi zote zisizoweza kuchapishwa, na kuchapisha herufi zote zisizoweza kuchapishwa, na kuchapisha herufi zote zisizoweza kuchapishwa. 