you'll want to use :

$i->configure(-state=>substr($regex,0,2) eq 'tr' ?
                            'disabled' : 'active');
[download]

See the Tk::options page for details.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'