Select Code to Download

              if($str =~ s/XLVIII$/IL/    or
                 $str =~ s/VIII$/IX/      or
...
                 $str =~ s/([VXLCDM])$/$1I/) { }

              return $str;

              if($str !~ /[IVXLCDM]+/         ||
                 $str =~ /([IXC])\1{3,}/      ||
...
              }

              return 1;