print $data[0] || "0";

##</code><code>##

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