use strict; use warnings; use utf8; my $str = 'a…b'; $str =~ s/(.)/ord($1)<256?$1:''/ge; print "$str\n";