in reply to `cat $myfile`; vs. open(MYHANDLE, "myfile")

Hi bw,

Yes, I think your problem comes from the newlines in each line in the array.

Try doing this instead:

chomp(my @myarray=`cat $myfile`);

That will remove the newline from the end of each line.


s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/