if ($s eq "") {    # Test for empty string
  print "The string is empty";
}
if ($s ne "") {    # Test for non empty string
  print "The string is not empty";
}