Select Code to Download

sub remove_ctrls {
    my $s = shift;
...
}

$text =~ s/(<\/Mil.*?>.*?\x9D)/remove_ctrls($1)/esg;