my $test = "2523";
$test = "0" . $test if($test=~/^\d{4}$/);
print "<td height=20 class=grtxt>$test</td>\n";