Help for this page
if(@array[3..4] =~ /\S/) { do stuff; }
if($array[4] =~ /\S/) { do stuff; }
if("@array[3,4]" =~ /\S/) { or if ("@array[3,4]" =~ tr/ \t\n//c) {