use strict;
use warnings;
my $XML = "";
while (<DATA>) {
   chomp;
   $XML .= "<line$.>$_</line$.>";
}
print join("",
   '<?xml version="1.0">',
   '<document>',
   $XML,
   '</document>'
);
__DATA__
param :PREFIX|numeric|sTAP|null
param :CLK_PERIOD|numeric|10000|null
param :STAP_NUMBER_OF_BITS_FOR_SLICE||16|null
param :STAP_SIZE_OF_EACH_INSTRUCTION|numeric|8|8-100
param :STAP_ENABLE_VERCODE|boolean|0