use strict;
my $test="yes";
print "test=$test\n";
if ("\L$test" eq "yes") { # No need to L-case the constant
  print "yes\n";
}else{
  print "no\n";
}