say "$_: ", /\b(10000|[1-9][0-9]{0,3})\b/ ? "Y" : "N" for qw{240 2 3600 1 10000 0 0000 19999 999999999};