if($blk !~ /^[\d]+$/) {print "Invalid value"};