my $i = $frame1->Checkbutton(..., -state => \$state, ...);

##</code><code>##

sub setting {
  $i->configure(-state => (substr($regex, 0, 2) eq 'tr'
      ? 'disabled' : 'normal' ));
}