Help for this page
while (<>) { # edit line if needed. print $_; }
my $line = 0; while (<>) ... s/XXXX/YYYY if ($line == 3); # change third line print $_; }