You could probably use the splice() function if you have the file in an array or are using Tie::File. You could also use perls inplace editor. If I have time later today I will write some code using the inplace editor that will do this. -------------------------------------------------