print $data[0] =~ m/^\s*$/ ? "0" : $data[0];