$ perl -E'say "\x80" =~ /^\x80\z/ ?"match":"no match"'
match