Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $in_str =~ s/>/!41/g;
    return $in_str;
}

<?xml version="1.0" encoding="UTF-8"?>
<TRANSACTION>
...
        <FIELD KEY="operation_type">!40do_what!41</FIELD>
     </FIELDS>
</TRANSACTION>