my %substitute = (
    '0000J' => '000-1',
    # . . .
);
my $regex = qr/(${\join '|', keys %substitute})/;