$text =~ s/[^\0-\x7f]//g;

##</code><code>##

use Encode;
...
my $bytes = encode('utf8', $text);
# insert $bytes instead of $text