while($line=<DATA>){ $line=~s/p\sclass=/<p class=/g; print $line; } [download]
In reply to Re: replace at the begining by sanku in thread replace at the begining by Anonymous Monk