You can define a character class for the range you want to detect:

my $bins=qr/[\x80-\xff]/; # or whatever
m/$bins/ && my_action();
[download]

After Compline,
Zaxo