Text::Roman 

use Text::Roman qw/isroman roman2int/; # and others
print int2roman(123), "\n";
print roman2int('blah'), "\n";
print roman2int('XXXV'), "\n";

CXXIII

35