Nice solution. Liked particularly the way you make the array go on circles. There is one thing though. Given that input data the regexp is not considering the |. Maybe $line =~ s/\| TEXT TO BE REPLACED.*/ $raw_data[0]/s;