Select Code to Download

#! perl -slw
use strict;
...
    (?:^[^9]*9[^9]*9[^9]*$)
]x and print for '0000' .. '9999';

#! perl -slw
use strict;
...
]x or m[(?=(\d).*\1)] and print for '000000' .. '999999';