#!/usr/bin/perl 
use strict;
use warnings;

while (<>) {
    chomp;

  s{ \A ([^\s]+) \s+ (.*) $ }
   {
   \t\t\t\t\t\t<row>
   \t\t\t\t\t\t\t<entry>
   \t\t\t\t\t\t\t\t $1
   \t\t\t\t\t\t\t</entry>
   \t\t\t\t\t\t\t<entry>
   \t\t\t\t\t\t\t\t $2
   \t\t\t\t\t\t\t</entry>
   \t\t\t\t\t\t</row>
   }ixms;

   print "$_";
}