remove unwanted chars in perl

#/bin/perl
# Example perl script that shows how to remove unwanted characters

my $txtbody = chr(8).chr(10).chr(31).chr(32).chr(33).chr(65).chr(230).chr(255);
$txtbody =~ s/[^\040-\377]//g;		# keep only characters 32 to 255
print $txtbody;