Select Code to Download

#!/usr/bin/perl

...
my $re = do { my $x = join '|', map "\Q$_", @B_CHECKS; qr/^[056]0+($x)
+$/ };

$_ =~ $re and print "$1 = $_\n" for @CS_CHECKS;