s/\s*//gm #### s/\s*]+>//gm #### #!/usr/bin/env perl use strict; use warnings; my $html_fragment = <<'END_HTML'; END_HTML print "Initial markup:\n"; print $html_fragment; $html_fragment =~ s/\s*//gm; print "Modified markup:\n"; print $html_fragment; #### Initial markup: Modified markup: #### #!/usr/bin/env perl use strict; use warnings; my $html_fragment = <<'END_HTML'; END_HTML print "Initial markup:\n"; print $html_fragment; $html_fragment =~ s/\s*]+>//gm; print "Modified markup:\n"; print $html_fragment; #### Initial markup: Modified markup: