Format Database file

[Brian Volk]

Hi All,
 
I have a database file, some_sch.txt that is arranged like this:
 
username1
First Last
Some Community Sch  
1000 S Adams St
Town, Indiana 12345 U.S.A. 
 
username2
First Last 
Some Community Sch 
1000 S Adams St
Town, Indiana 12345 U.S.A. 
  
username3
First Last 
Marion Community Sch  
1000 S Adams St
Town, Indiana 12345 U.S.A.
 
I want the file to look like this:
 
username1    First Last    Marion Community Sch     1000 S Adams St    Town,
Indiana 12345 U.S.A.
username2    First Last    Marion Community Sch     1000 S Adams St    Town,
Indiana 12345 U.S.A.
username3    First Last    Marion Community Sch     1000 S Adams St    Town,
Indiana 12345 U.S.A.
 
Here is what I have so far,  I don't how to tell perl what is what in the
input file, I know this is a ways away from what I want, but if I could get
some help w/ the first part, I would really appreciate it. 
I think I might need a next statement after each Scalar in the loop?
 
 Thanks! 
 
#!/usr/bin/perl -w
 
use strict;
 

my $datafile = "C:/brian/some_sch.txt";
open (IN, $datafile); 
while (<IN>) { 
 
    chomp; 
 
   my $user_name = substr $_, 0, 15;  # extract the last username field 
   my $full_name = substr $_, 0, 20;  # extract the name field 
   my $cust_name = substr $_, 0, 40;  # extract the customer name field
   my $address = substr $_, 0, 30;    # extract the address field
   my $csz = substr $_, 0, 40;        # extract the city, state and zip
field
 
    print "$user_name $full_name $cust_name $address $csz\n"; 
} 
 
close (IN);
 
Brian Volk
HP Products
317.289.9950 x1245
 <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]