#!/usr/bin/perl -w
use strict; 
while (<DATA>){
        for my $myword (split){
                print "[$myword]\n";
        }
        print "we have a newline now\n";
}
__END__
a b  c
d e f
g h i