Better tiebreak It's also harder to read :)
You still have an hour to get below 200
#!perl -alp
$,=join"|",%,=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%@=(ho,1,'m',6,b,9);map{/$,/;$;+=$,{$&}*10**/y/+10*/te|el/;$;*=100**/d/;/ho|m|b/and$;*=10**$@{$&},$:+=$;,$;=0}@F;$_=$;+$:;s!.(?=(...)+$)!$&,!g
|
#!perl -alp
$s=join"|",%s=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 1 m 6 b 9);map{/$s/;$t+=$s{$&}*10**/y/+10*/te|el/;$t*=1e2**/d/;/ho|m|b/and$t*=10**$m{$&},$u+=$t,$t=0}@F;$_=$t+$u;s!.(?=(...)+$)!$&,!g
|
#!perl -alp
$s=join"|",%s=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 1 m 6 b 9);map{/$s/;$t+=$s{$&}*10**/y/+10*/te|el/;$t*=1e2**/d/;/ho|m|b/and$t*=10**$m{$&},$u+=$t,$t=0}@F;$_=$t+$u;s!.(?=(\d{3})+$)!$&,!g
|
#!perl -alp
$s=join"|",%s=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 1 m 6 b 9);map{/$s/;$t+=$s{$&}*10**/y/+10*/te|el/;$t*=1e2**/d/;/ho|m|b/and$t*=10**$m{$&},$u+=$t,$t=0}@F;$_=$t+$u;1while s!.*\d(?=\d{3})!$&,!
|
#!perl -alp
$s=join"|",%s=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 1 m 6 b 9);map{/$s/;$t+=$s{$&}*10**/y/+10*/te|el/;$t*=1e2**/d/;/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;1while s!.*\d(?=\d{3})!$&,!
|
#!perl -alp
$s=join"|",%s=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 1 m 6 b 9);map{/$s/;$t+=$s{$&}*10**/y/+10*/te|el/;$t*=/d/?100:1;/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;1while s!.*\d(?=\d{3})!$&,!
|
#!perl -alp
$s=join"|",%s=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 1 m 6 b 9);map{/$s/;$t+=$s{$&}*10**/y/;$t+=10*/te|el/;$t*=/d/?100:1;/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;1while s!.*\d(?=\d{3})!$&,!
|
#!perl -alp
$s=join"|",%s=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 1 m 6 b 9);map{/$s/;$t+=$s{$&}*10**/y/;$t+=10*/te|el/;/d/&&($t*=100);/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;1while s!.*\d(?=\d{3})!$&,!
|
#!perl -alp
$s=join"|",%s=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 1 m 6 b 9);map{/$s/&($t+=$s{$&}*10**/y/);$t+=10*/te|el/;/d/&&($t*=100);/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;1while s!.*\d(?=\d{3})!$&,!
|
#!perl -alp
$s=join"|",%s=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 3 m 6 b 9);map{/$s/&($t+=$s{$&}*10**/y/);$t+=10*/te|el/;/hu/&&($t*=100);/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;1while s!.*\d(?=\d{3})!$&,!
|
#!perl -alp
$s=join"|",%s=se7x6g8w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 3 m 6 b 9);map{/$s/&($t+=$s{$&}*(/y/?10:1));$t+=10*/el|te/;/hu/&&($t*=100);/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;1while s/.*\d(?=\d{3})/$&,/
|
#!perl -alp
$s=join"|",%s=se7si6g8z0w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(.)/g;%m=qw(ho 3 m 6 b 9);map{/$s/&($t+=$s{$&}*(/y/?10:1));$t+=10*/el|te/;/hu/&&($t*=100);/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;s/.*\d(?=\d{3})/$&,/while/\d{4}/
|
#!perl -alp
$s=join"|",%s=se7si6g8z0w2hr3hi3fo4f5ni9ne1le1=~/(\D+)(\d+)/g;%m=qw(ho 3 m 6 b 9);map{/$s/&($t+=$s{$&}*(/y/?10:1));$t+=10*/el|te/;/hu/&&($t*=100);/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;s/.*\d(?=\d{3})/$&,/while/\d{4}/
|
#!perl -alp
$s=join"|",%s=el11z0ne1w2hr3hi3fo4f5si6se7ei8ni9=~/(\D+)(\d+)/g;%m=qw(ho 3 m 6 b 9);map{/$s/&($t+=$s{$&}*(/y/?10:1));/lv|te/&&($t+=10);/hu/&&($t*=100);/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;s/.*\d(?=\d{3})/$&,/while/\d{4}/
|
#!perl -alp
$s=join"|",%s=te10el11z0ne1w2hr3hi3fo4f5si6se7ei8ni9=~/(\D+)(\d+)/g;%m=qw(ho 3 m 6 b 9);map{/$s/&($t+=$s{$&}*(/y/?10:1));/lv|een/&&($t+=10);/hu/&&($t*=100);/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}@F;$_=$t+$u;s/.*\d(?=\d{3})/$&,/while/\d{4}/
|
#!perl -alp
$s=join"|",%s=te10el11z0ne1w2hr3hi3fo4f5si6se7ei8ni9=~/(\D+)(\d+)/g;%m=qw(ho 3 m 6 b 9);for(@F){/$s/&($t+=$s{$&}*(/y/?10:1));/lv|een/&&($t+=10);/hu/&&($t*=100);/ho|m|b/&&($t*=10**$m{$&},$u+=$t,$t=0)}$_=$t+$u;s/.*\d(?=\d{3})/$&,/while/\d{4}/
|
Time to golf it down.
#!perl -aln
%s="te10el11z0one1tw2thr3thi3fo4fi5si6se7ei8ni9"=~/(\D+)(\d+)/g;
%m=qw(tho 1e3 mil 1e6 bil 1e9);
$s=join"|",%s;$m=join"|",%m;
for(@F){/$s/&&($t+=$s{$&}*(/ty/?10:1));/lv|een/&&($t+=10);/hun/&&($t*=100);
/$m/&&($t*=$m{$&},$u+=$t,$t=0)};
$_=$t+$u;s/.*\d(?=\d{3})/$&,/while/\d{4}/;print
|