Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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";
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement