Admin Commands?

#!/usr/bin/perl -w
use strict;
use File::Slurp;

my $text = read_file('AssembleeGameClient1364329899_uncompressed.swf');
$text =~ s/\n\n\n</XOXO</gi;
$text =~ s/[\n\r]//gi;
$text =~ s/>[ \s]+</></gi;

my %tags=();

while($text=~/XOXO<([[:print:]]{1,50}?)\>/ig){
 my $tag=$1;
 next if $tag =~ /^\//;
 $tags{$tag}++;
}

foreach my $tag (sort {$tags{$a} <=> $tags{$b}} keys %tags){
 print $tag . ' ' . $tags{$tag}. 'x' . "\n";
}

foreach my $tag (keys %tags){
 print 'processing ' . $tag . ' ...' . "\n";
 my $i=0;
 while($text=~/(<$tag>.+?<\/$tag>)/ig){
 	my $xml=$1;
 	#$xml=~s/type="(0x.+?)"/'type="' . oct($1) .'"'/egi;
 	$xml=~s/<!--[^\-]+-->//gi; # comments 
 	$xml=~s/(<\/[^\>]+?>)[^\>]+</$1</gi; # malformed

  open(OUT,'>' . './data/' . $tag . '_' . $i . '.xml') or die $! . "\n";
  print OUT $xml . "\n";
  close(OUT) or warn $! . "\n";
  $i++;
 }
}