$ perl -E '
    say "$_: ", /1?\d{1,4}/ ? "Y" : "N"
        for qw{240 2 3600 1 10000 0 0000 19999 999999999};
'
240: Y
2: Y
3600: Y
1: Y
10000: Y
0: Y
0000: Y
19999: Y
999999999: Y