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