- if($line =~ /^(.*)<\/platform>(.*)$/) {
- $output_string .= " <\/AS>\n<\/platform>";
- } else {
- $output_string .= "$line\n";
- }
+ $line =~ s/\blink:ctn\b/link_ctn/g;
+ $line =~ s/\btrace:connect\b/trace_connect/g;
+ $line =~ s/^(.*)<\/platform>(.*)$/ <\/AS>\n<\/platform>/;