I would suggest using the File::ReadBackwards module, then reversing each line. That will avoid situations where your program slows down when a file is too big for available memory. Assuming $_ is the current line, something like : chomp $_; print OUTFILE reverse(split //,$_); print OUTFILE "\n"; Remember that "split //,$_", returns an array with each individual character of $_, since you are essentially splitting on null, and reverse() returns the array backwards.
-----Original Message----- From: news on behalf of Norman Zhang Sent: Thu 1/1/2004 11:49 PM To: [EMAIL PROTECTED] Cc: Subject: Re: create file I want to list each character of the file backwards.