Regexp for numerals

#!/usr/bin/perl -nw
chomp;
if (/^
    (?'c1'C)? M?                     (?('c1')|(?'c2'C)?) D?
    (?'x1'X)? (?('c1')|(?('c2')|C?)) (?('x1')|(?'x2'X)?) L?
    (?'i1'I)? (?('x1')|(?('x2')|X?)) (?('i1')|(?'i2'I)?) V?
    (?('i1')|(?('i2')|I?))           $/x) {
  print; print "\n";
}