#!/usr/bin/Perl -w

use strict;

my $x;

while ( $x = <hello there how are you> ) {
    print "$x\n";
}