#!perl -wle

while (<>) {
    s!^!<row><value>!;
    s!\t!</value><value>!g;
    s!$!</value></row>!;
    print;
};