print
   qq{$word },
     $word =~ m{(.).*?\1}
   ? q{is not }
   : q{is },
   qq{an isogram\n};