- or download this
$ perl -E'say "\x80" =~ /^\x80\z/ ?"match":"no match"'
match
- or download this
$ perl -E'
use encoding "UTF-8";
say "\xC2\x80" =~ /^\N{U+0080}\z/ ?"match":"no match"
'
match
- or download this
$ perl -E'
use encoding "UTF-8";
...
say $x =~ /^\Q$x\E\z/ ?"match":"no match"
'
match