sub e1 {
    shift() *2;
}

sub e2 {
    shift() + shift();
}

$a = "12.2424.4812367";
$a =~ s/((?:\d+(?:\.\d+)?))((??{e1($+)}))/e2($1, $2)/ge;
print $a;