if (length($STRING) > ($STRING =~ tr|\x00-\xFF|\x00-\xFF|))
{
  ...
}