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