if ( ($var =~ /^\s+$/) or ($var eq "") ){

print "\n All \n";

}else{
       print "\n Nothing \n";
       }