if ($STRING =~ m/[^\x00-\xFF]{1}/)
{
  ...
}