#!/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

##</code><code>##

[a]
[b]
[c]
we have a newline now
[d]
[e]
[f]
we have a newline now
[g]
[h]
[i]
we have a newline now