#!/usr/bin/env perl -l

use strict;
use warnings;

while (<DATA>) {
    next unless /^DATA/;
    print 'xxx=', join(', xxx=' => split), ';';
}

__DATA__
TABLE NAME 

HEAD0   HEAD1   HEAD2 

DATA00  DATA10  DATA20
DATA01  DATA11  DATA21

END