use warnings;
use strict;

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

__END__

abc0 abcp abcz