if ( $control eq $code ) { warn("+++ $name: strings DO match\n"); }
if ( $control lt $code ) { warn("+++ $name: control lt code\n"); }
if ( $control gt $code ) { warn("+++ $name: control gt code\n"); }