my $test = "21234";
#if($test=~/(\d+){4}/)
#if($test=~/\d\d\d\d{4}/)
#if($test=~/\d\d\d\d/)
#if($test=~/\d\d\d\d{4}/)
#if($test=~/^(\d+){4}?/)
if($test=~/\d+{4}/)
{	
          print "<td height=20 class=grtxt>0$test</td>\n";
}
else
{          
          print "<td height=20 class=grtxt>$test</td>\n";          
}