$page =~ s{< \s* BR .* >|< \s* P .* >}{$/}egisx;
$page =~ s{< .* >}{}egisx;