sub roman_to_dec { reduce { $a+$b-$a%$b*2 }
  @{{split/(\d+)/, 'M1000D500C100L50X10V5I1'}}{split//, uc pop}
}