if ($var =~ /^\s*$/)
{
    # Do blank procedure
}
else
{
    # Do nonblank procedure
}