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