Nope.... not homework. However I am flattered. This is a project for myself. It was something triggered my a conversation with one of my friends .... who said it couldn't be done. I see how quickly you monks have cobbled up text messages rather than just pluck down script. I must surmise that it's not that easy. Perhaps we should begin..... I have all night. #!/usr/bin/perl -w use strict; my $infile = shift; my $outfile = shift; open (IN, $infile) || die "can't open $infile: $!"; open (OUT, ">$outfile")|| die "can't open $outfile: $!"; while (<IN>) { chomp; my @fields = split /,/; #let's see what you can place here to make it work...... #Sorry about the mess.... but it looks better when I typed #out the thing in the first place. #BTW..... If this can't be done... to bad .... I'll just have #to go back to the book and maybe in year or two.... I'll be #able to write the script myself..... I'd rather not wait #that long..... thanks # Joachim close (IN); close (OUT); __END__