Help for this page

Select Code to Download

Select or download this

#! perl -sw
use strict;
...
    (?:^[^8]*8[^8]*8[^8]*$)|
    (?:^[^9]*9[^9]*9[^9]*$)
]x and print "$_\n" for '0000' .. '9999';