numbers.pl

#!/usr/bin/perl

use strict;
use warnings;

use Regexp::Optimizer;
use JSON qw(from_json);

open(my $fh, '<', 'numbers.json')
    or die "can't read numbers.json: $!\n";
my $c = join('',<$fh>);
close $fh;
my @numbers = @{ from_json($c)->{numbers} };

my $re = join('|',map { "^$_\$" } @numbers);

my $re2 = Regexp::Optimizer->new->optimize(qr{$re});

print "$re2\n\n\n";

while (<>) {
    print if /$re2/;
}