Select Code to Download

foreach $line (@lines)
{
    if($line =~ /test/)
...
        print "$line"
    };
}

if ($line =~ /test/)
{
    $line =~ s/<p>//g;
    print $line;
}