my $row = "hello;this;is;a;test";
my $i = 1;
print "row: $row\n";
$row =~ s/;/"<\/col". $i++ ."><col$i>"/eg;
$row = "<col1>" . $row . "<col$i>";
print "row: $row\n";

##</code><code>##

my $row = "hello;this;is;a;test";
my $i = 1;
print "row: $row\n";
@cols = split(/;/,$row);
foreach $col (@cols) { $output .= "<col$i>$col</col$i>"; $i++}
print "row: $output\n";