Changing file output format

[Leaw, Chern Jian]

HI,
I would like to change output format of a file from:
abinabdu adanie2  agibson  agoh1    aiabouse 
akko     alau     alee1    alee2    amitb    
amohdali amshams  anmohand 
 
to the format listed below when printing it out to the standard output:

abinabdu
adanie2  
agibson  
agoh1    
aiabouse
akko     
alau     
alee1    
alee2    
amitb     
amohdali 
amshams  
anmohand 

Each elements in the file are sepated by 1 or more spaces (see attached file).

The script written below attempts to do so:
#!/usr/bin/perl
$currDir = `pwd`;
chomp($currDir);
$file = $currDir."/PSCS-ORIG";
open(INFILE, "$file") or die("Cannot open $file : $!");
@entries = <INFILE>;
print "[EMAIL PROTECTED] ... \n";
print "@entries ";
close(INFILE);
print "Printing contents ... \n";
for($i=0; $i<@entries; $i++){
   chomp($entries[$i]);
   print "$entries[$i] \n";
   @lineItems = split(/\s+/, $entries[$i]);
   print "[EMAIL PROTECTED] = @lineItems\n";
   print "\n";
   print "Printing [EMAIL PROTECTED] \n";
   for($j=0;$j<@lineItems;$j++){
      chomp($lineItems[$j]);
      print "$lineItems[$j] \n";
   }
}

However, the script did not print the entire array elements all at once, and that the 
elements are not joined together in the array, as shown in the output below:

pglc0002> ./extract.pl
@entries ... 
abinabdu adanie2  agibson  agoh1    aiabouse 
akko     alau     alee1    alee2    amitb    
amohdali amshams  anmohand 
 Printing contents ... 
abinabdu adanie2  agibson  agoh1    aiabouse aicole      
@lineItems = abinabdu adanie2 agibson agoh1 aiabouse 

Printing @lineItems 
abinabdu 
adanie2 
agibson 
agoh1 
aiabouse 

akko     alau     alee1    alee2    amitb   
@lineItems = akko alau alee1 alee2 amitb

Printing @lineItems 
akko 
alau 
alee1 
alee2 
amitb 

amohdali amshams  anmohand 
@lineItems = amohdali amshams  anmohand 

Printing @lineItems 
amohdali
amshams  
anmohand 

May I know where did I go wrong and how should I solve this problem?

Thanks.

 <<PSCS-ORIG.txt>> 

abinabdu adanie2  agibson  agoh1    aiabouse    
akko     alau     alee1    alee2    amitb    
amohdali amshams  anmohand 

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>