if($blk =~ /\D/) { print "Invalid value";}