my ($re) = map qr/^(?:0|5|6)0+($_)$/,
           join '|',
           map quotemeta,
           @B_CHECKS;

for my $cn ( @CS_CHECKS ) {
   if ( $cn =~ $re ) {
      print "$1 = $cn\n";
   }
}