Help for this page
if ($data =~ /(?<![\w-])ON(?![\w-])/i) { ... print "OFF\n"; }
sub chg_btn { $btn1->configure(-background => "green", -foreground => "black"); }