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