foreach $line (@lines)
{
    if($line =~ /test/)
    { 
        $1 =~ s/<p>//gi; 
        print $1;
    }

    if($line =~ /meta/)
    {
        print "$line"
    };
}