Help for this page

Select Code to Download


  1. or download this
    $ perl -E '
        say "$_: ", /1?\d{1,4}/ ? "Y" : "N"
    ...
    0000: Y
    19999: Y
    999999999: Y
    
  2. or download this
    $ perl -E '
        say "$_: ", /(?<![0-9])(?:10000|[1-9][0-9]{0,3})(?![0-9])/ ? "Y" :
    + "N"
    ...
    0000: N
    19999: N
    999999999: N