Select Code to Download

#!/usr/bin/env perl -l

...
DATA01  DATA11  DATA21

END

xxx=DATA00, xxx=DATA10, xxx=DATA20;
xxx=DATA01, xxx=DATA11, xxx=DATA21;

print {$OUT} "xxxxx", $data[0], "yyy", $data[2],";","\n";

print 'xxxxx', join('yyy' => (split)[0,2]), ';';

xxxxxDATA00yyyDATA20;
xxxxxDATA01yyyDATA21;