Select Code to Download

 <?xml version="1.0" encoding="UTF-8"?>
<ServiceChangeRequest Operation="Activate" SubscriberKey="|IMSI_NUMBER
+|" AlternateSubscriberKey="|MSISDN_NUMBER|" Refresh="false">
...
        </RequiredServices>
</ServiceChangeRequest>

#!/usr/bin/perl

...
for ($i=0;$i< @lines;$i++) {
    print "$_\n";
}