if($array[4] =~ /\S/) {
    do stuff;
}