if ($string =~ /^\s+$/)