my $x = ""; 
if($x!~//g)  {

  print "\n There is true data\n";

}