#!perl -apl
/(b|li|nd$)/?$^+="$~e".(9-$-[$~=0]):$~+=/d/?$~*99:/(te|lv)/.(1+index"‡ÐÑøòÂÎâr-å",pack+H2,$_)*10**/y/for@F;$_=$~+$^;s/.(?=(...)+$)/$&,/g

#!perl -apl
/(b|li|nd$)/?$^+="$~e".(9-$-[$~=0]):$~+=/d/?$~*99:/(te|lv)/.(1+index"‡ÐÑøòÂÎâr-å",pack+H2,$_)*10**/y/for@F;$_=$~+$^;s/\d(?=(...)+$)/$&,/g

#!perl -apl
/(b|li|nd$)/?$^+="$~e".(9-$-[$~=0]):$~+=/d/?$~*99:/(te|lv)/.(/./+index'!"<(.;7-&~)','^'&$'^$&)*10**/y/for@F;$_=$~+$^;s/...\b/,$&/while/\d{4}/

#!perl -apl
/(b|li|nd$)/?$^+="$~e".(9-$-[$~=0]):$~+=/d/?$~*99:/(te|lv)/.(/./+index'!"<(.;7-& )','^'&$'^$&).(/y/&&0)for@F;$_=$~+$^;s/...\b/,$&/while/\d{4}/

#!perl -apl
/(b|li|nd$)/?$^+="$~e".(9-$-[$~=0]):$~+=/d/?$~*99:/te/./el/.(/le/||/./+index"!#<)/:6,'",'_'&$'^$&).(/y/&&0)for@F;$_=$~+$^;s/...\b/,$&/while/\d{4}/

#!perl -apl
/(b|mi|tho)/?$^+="$~e".3*(4-$+[$~=0]):$~+=/d/?$~*99:/te/./lv/.(/y/?5:.5)*(/../+index'.ontwthfofisiseeini..el',$&)for@F;$_=$~+$^;s/...\b/,$&/while/\d{4}\b/

#!perl -ap
/.../,$~+='thomilbil'=~/$&/?($^+="$~e$+[0]",-$~):/d/?$~*99:/een/+/lv/.(/y/?5:.5)*/../*index'..ontwthfofisiseeiniteel',$&for@F;$_=$~+$^.'
';s/...\b/,$&/while/\d{4}\b/

#!perl -ap
map{/../;$n=index'zeontwthfofisiseeiniteel',$&;/.../;$r='thomilbil'=~/$&/?!($R+=$r.0 x$+[0]):/d/?$r*100:$r+(/y/?$n*5:/(een|lv)/.$n/2)}@F;$_=$r+$R.'
';s/...\D/,$&/while/\d{4}\D/

#!perl -lp
map/.../*'thomilbil'=~/$&/?($R+=$r.0 x$+[0],$r=0):(/../,'zeontwthfofisiseeiniteel'=~/$&/,$n=$-[0],/d/?$r*=100:$r+=/y/?$n*5:/(een|lv)/*10+$n/2),/\w+/g;$_=$r+$R;1while+s/(\d)(...)(?:$|,)/$1,$2/

#!perl -lp
map{/../;'zeontwthfofisiseeiniteel'=~/$&/;$n=$-[0]/2;/.../;if('thomilbil'=~/$&/){$R+=$r*10**$+[0],$r=0}else{/d/?$r*=100:$r+=/y/?$n*10:/(een|lv)/?$n+10:$n}}/\S+/g;$_=$r+$R;1while+s/(\d)(\d{3})($|,)/$1,$2$3/

#!perl -lp
map{/../;($D='ontwthfofisiseeiniteel')=~/$&/g;$n=pos($D)/2;/.../;if(($M='thomilbil')=~/$&/g){$R+=$r*10**pos($M),$r=0}else{/hu/?$r*=100:$r+=/ty/?$n*10:/(een|lv)/?$n+10:$n}}/\S+/g;$_=$r+$R;1while+s/(\d)(\d{3})($|,)/$1,$2$3/