A CPAN search finds Regexp::Genex. It doesn't seem to support character classes, but this is close:

use warnings;
use strict;

use Regexp::Genex qw(:all);
print "$_ " for strings('abc(0|p|z)');
print "\n";

__END__

abc0 abcp abcz
[download]