How could you remove wide characters in Perl?

$content =~ s/[^\x00-\x7f]//g;