use strict;
use warnings;

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

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

##</code><code>##

sub cin_read {
    my $inchar = getc;
    $inchar = getc while $inchar =~ /^\s$/;
    my $result = '';
    while ($inchar =~ /^\S$/) {
        $result .= $inchar;
        $inchar = getc;
    }
    return $result;
}