if ($data =~ /^\s*$/)
 { ..do this...}
else{ ..that...}