perl -MMock::Data::Regex -E '
    say Mock::Data::Regex->new(
      qr/^[a-c]{2}[-,.]\d{3}-[A-Z]{2}$/a
    )->generate;'
bb-157-JA