open FL , "+<file" or die"";
while (<FL>)
{
s/oldline/newline/g;
}