xmlstrip

   1 #!/usr/bin/env perl
   2
   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.
   7
   8 use warnings;
   9
  10 my $Data = join("", <>);
  11 $Data =~ s/>[^<>]+?</></gs;
  12 $Data =~ s/\s*\n\s*[^\S\$]/ /gs;
  13 print($Data);