use strict;
use warnings;

sub do_something { print '{', $_[0], "}\n" }

local $/ = ' ';
while (<>) {
    do_something($_);
}