$ 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
$