#!/usr/bin/perl

while(<DATA>){

s/p\sclass=/\<p\\sclass=/g;
print $_;
}

__DATA__
p class="Hi">
<p class="new">