in reply to General version comparison of CPAN modules

I would just (untested):
$version =~ s/^([\d.]+_[\d.]+)\z/$1/ee;