Select Code to Download

<tag>line one
line two
line three
<tag>line four

<element>line one
line two
line three
<element>line four

foreach(@file)
{
    for my $x (0..$#replace)
...
    print $_;
    }
}