sub stripCtrls {
  my $text = shift;

  #changed capture of $1 as per moritz
  $text =~ /(<\/Mil[^>]*>)([^\x9D]*)\x9D/;
  my $sStartTag = $1;
  my $sBetweenTags = $2;

  $sBetweenTags =~ s/[\x90\x8F]//g;
  return "$sStartTag$sBetweenTags\x9D";
}