Help for this page
for my $line (@lines) { ... print $line; }
for my $replace (@replaces) { ... } print @lines;