Help for this page
$ perl -wE 'my $x = q{Some Text <br> ABCD </br>...}; $x =~ s/<br> +(\s*)/q{<br>} . q{ } x length($1)/eg; say $x' Some Text <br> ABCD </br>...