my $x; while (defined($x = CORE::GLOBAL::glob('hello there how are you', 0))) { print "$x\n"; }