$line = "foo  bar";
print ++$i, ". $_\n" for split / /, $line;