Select Code to Download

$ 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>...