$ perl -MRegex::PreSuf -e'my $re = presuf(qw(I II III IV V VI VII VIII IX X));
print "$re\n";'
(?:I(?:II|[IVX])|VI(?:II|I)?|[IVX])