use strict;
my $test="yes";
print "test=$test\n";
if ($test eq /yes/i) {
  print "yes\n";
}else{
  print "no\n";
}