$val=10.2455;  
validate(2,2,$val);
sub validate{

$v1=$_[0];
$v2=$_[1];
$v3=$_[2];

if($v3= ~m /\d{2}?\.\d{2}?/ ){

print "its a good one\n";}

else {print "Not Good!!";}