hi, The following replacement will be work fine.

while($line=<DATA>){
$line=~s/p\sclass=/<p class=/g;
print $line;
}
[download]