in reply to Replace leading Spaces after a tag

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

[download]

Minor side issue: </br> isn't a valid HTML tag.

-- Ken

In Section Seekers of Perl Wisdom