1: my $str = uc shift @_; 2: 3: 4: if($str =~ s/XLVIII$/IL/) { 5: } elsif($str =~ s/VIII$/IX/) { 6: } elsif($str =~ s/III$/IV/) { 7: } elsif($str =~ s/DCCCXCIX$/CM/) { 8: } elsif($str =~ s/CCCXCIX$/CD/) { 9: 10: } elsif($str =~ s/LXXXIX$/XC/) { 11: } elsif($str =~ s/XXXIX$/XL/) { 12: 13: 14: } elsif($str =~ s/(I{1,2})$/$1I/) { 15: 16: } elsif($str =~ s/CDXCIX$/D/) { 17: } elsif($str =~ s/CMXCIX$/M/) { 18: } elsif($str =~ s/XCIX$/C/) { 19: 20: } elsif($str =~ s/I([VXLCDM])$/$1/) { 21: } elsif($str =~ s/([VXLCDM])$/$1I/) { 22: } 23: 24: return $str;
Back to
Craft