$info=~s/[\n\r]{1,2}/<p>/gms;
or
 $info=~s/[\n\r]+/<p>/gms;