$_ = "1 1.0 3.547 92.34 343.2234";

while (/(?<![\d.])((?>\d+))(?!\.\d)/g) {
  print "$1\n";
}