open(XFIL,"var.txt") || die $!; @main = ; close(XFIL); open(XFIL,">var.txt") || die $!; foreach $line (@main) { @main[0] =~ s/some data/this is the first line replaced/; print XFIL $line ; } close(XFIL);