$_ = "Krebs H. 2005 5 112 16.5 198 287 814.7 1001";
my ($a,$b,$c)=split /\.*(\d{4}\s)\.*/;
my @ed=split / /,$c;
unshift(@ed, $a,$b);