s/[\x80-\xff]//g;

# or
y/\x80-\xff//d;

# or
Encode::from_to($string, 'utf-8', 'us-ascii', 0 );