Select Code to Download

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

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

sub isUnicode
{
...
  }
  return 0;
}