$val=101.24;  
validate(3,2,$val);
sub validate{

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

print "Values are $v1 \t $v2 \t $v3  \n";


if($v3=~m/^\d{$v1}\.\d{$v2}$/ ){

print "its a good one\n";}

else {print "Not Good!!";} 
}

Values are 3 	 2 	 101.24  
its a good one