if( $locale)
  { use locale; }

elsif( $utf8 and $perl_version_ok) 
  { use utf8; }

if( $word=~ /^\w+$/) { ... }