Select Code to Download

/00000|00001|00002|.../

...100000.... any five zeros in a row will match
...4850001... any four zeros followed by 1 will match.

my $finds_re = '\b' . join( '|', map { quotemeta } @finds ) . '\b';