convertXsiType.pl

#!/usr/bin/perl

use strict;
use warnings;

open my $fh, "<", $ARGV[0] or die "Couldn't open file";

my $tagStack = [];
my $typeStack = [];
my $en = 0;
my $tag;

for my $ln (<$fh>) {
  if ($ln =~ /^(\s*)<(.*?) .*?xsi:type="(.+?)".*?(\/?)>/) {
    my $space = $1;
    my $tag = $2;
    my $type = $3;
    my $open = $4 ne "/";

    if ($open) {
      $en += 1;
    }

    if ($en > 0 && $open) {
      push $tagStack, $tag;
      push $typeStack, $type;
    }

    $ln =~ s/(xsi:type=".+?"|xmlns:xsi=".+?")//gx;
    my $lnNoXsi = $_ || $ln;
    my @bits = split(" ", $lnNoXsi);
    print $space, "<", $type, " ", join(" ", @bits[1..$#bits]), "\n";
  }
  elsif ($en > 0  && ($tag = $tagStack->[-1]) && $ln =~ /^(\s*)<\/$tag>/) {
    pop $tagStack;
    my $space = $1;
    my $type = pop $typeStack;
    print $space, "</", $type, ">", "\n";
    $en -= 1;
  }
  else {
    print $ln;
  }
}