use strict;
use warnings;

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

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