#my $month=12; #exemplo
my $month=7; # I just want to add 0, if it's a single digit date number
if($month=~/(\d)/g)
{
	$month=.0.$month;
	print "test - $month<br>";
}