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