$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!!";} }