#!perl -pl
$s=$l=0;$x=5**y/VLD//.E.(42^88*ord)%5,$s-=$l<$x?$l*2:0,$s+=$l=$x for/./g;$_=$s