Thanks for the extra pointer -- I fixed those myself once the split(...) stuff was pointed out.

One thing I did notice that I think is of note. I did as you suggest and used the join command instead of typing the whole thing out. My execution time fell from ~600 seconds to ~60 seconds.

Is that because perl do not have to copy the string to memory temporarily and then reassign it when you use join?