The <FILE> should make it so that the newline is always and only at the end. (unless you changed $/)Why not:

while(<FILE>){
    for my $myword  (split(/\s+/)){
        #do stuff
    }
    #There's a newline now
}
[download]

Update: BTW, $/ will always equal "\n" unless you change it. It's the value that the <FILE> constructor uses to split on, not what split uses.

$str = "what's up, doc?";
for (split /(\W+)/, $str) {
  print "<$_>\n";
}
__END__
<what>
<'>
<s>
< >
<up>
<, >
<doc>
<?>
[download]

The \n is only at the end of a line, so you won't have any string there after the split.

Update: Some sample code to demonstrate:

#!/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
[download]

Outputs:

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

It never splits on the newline (It tries, see that there are only empty elements afterward, and discards it)

When I read these posts at first, I misunderstood the results of split. Before yesterday, I didn't realize that plain split also splits on newlines (although I knew!). So, the comment I wanted to make was, do a chop first. But of course that is unnessecary.

If you want it in an oneliner, you could just say: (The use of map releaves perl of doing an itteration.)

while(<>) {map { print "$_\n"} split; print "newline\n"}
[download]

If you combine this with little's post, you would get something like

undef $/;
$_=<>;
s/\n/ newline /g; 
map{ print "$_\n"} split;
[download]

Warning: Do not try to do something with $_ after the map, that doesn't work...

I was dreaming of guitarnotes that would irritate an executive kind of guy (FZ)

The sample code helped a ton. It now works perfectly. Thanks

--BigJoe

Learn patience, you must.
Young PerlMonk, craves Not these things.
Use the source Luke.