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"); }

##</code><code>##

$ perl -Mstrict -Mwarnings -e '
my $code = q{M};
my @msgs = qw{ equal more less };
warn qq{$_ }, $msgs[ $_ cmp $code ], qq{ $code\n} for qw{ A M Z };'
A less M
M equal M
Z more M
$