create-ly: band: Create .ly files for all instruments
[sunny256-utils.git] / xmlstrip
blob3b53774da93c8c8bbf73ab7715b04bead0699cad
1 #!/usr/bin/env perl
3 # xmlstrip
4 # File ID: 06bf7352-5d4a-11df-b044-90e6ba3022ac
5 # Remove everything inside and outside XML elements, in other words,
6 # clean up the bastard.
8 use warnings;
10 my $Data = join("", <>);
11 $Data =~ s/>[^<>]+?</></gs;
12 $Data =~ s/\s*\n\s*[^\S\$]/ /gs;
13 print($Data);