#!/usr/bin/perl
#######################################################################
# Read a file , split the data, and write to another file
#     Open an input file
#     Open an output file
#######################################################################
 
open(INFILE,  "< /etc/passwd");
open(OUTFILE, "> temp/pswd.file") || die("could not open output file $! \n");

while($record = <INFILE>) {
    chomp ($record);
    ($u,$p,$id,$g,$n,$h,$s) = split(/:/,$record);     #split the record
    $record = join(' -- ',($n,$u,$h));                #join name,user,home
    print OUTFILE  "$record \n";
}

close(INFILE);
close(OUTFILE);