#!/usr/bin/perl

while(<DATA>){
s/(?<!<)p\sclass=/<p class=/;

print $_;
}

__DATA__

<p class="Hi">Hello
<p class="new">How r u


##</code><code>##

<p class="Hi"\>Hello

<p class="new"\>How r u