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]

[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]

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.

If you only want to count the lines then use something like

my @myfile = <File>;
my $lines = @myfile;
[download]

but that was just guessing what you are doin.
But to go on with your idea you need to

undef $/;           # enable "slurp" mode
$_ = <FH>;          # whole file now here
[download]

which is an excerpt from perlman:perlvar

Have a nice day
All decision is left to your taste