Select Code to Download

use warnings;
use strict;
...
             { ++$i;  qq{<q marker="›" sID="$i"/>$1<q marker="‹" eID="
+$i"/>}; }xmsge;

print qq{[[$datamat]] \n\n};