#!perl -p
$l=1e3;$r=0;$r+=($"=M999D499C99L49X9V4I=~$_+$')-2*$l*($l<$"),$l=$"for/./g;s/.*/$r/