$in{$_} =~ s/([\r\n]){2,}/<\/p>

/g;