use strict;
use warnings;

my ($col1, $col2, $col3);
format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<< 
$col1,                  $col2,                 $col3
.

while (<DATA>) {
  chomp;
  ($col1, $col2, $col3) = split /\s+/;
  write STDOUT;
}

__DATA__
xxxxx yyyyyy zzzzz
xxxxx yyyyyy    zzzzzzz
xxxxx yyyyyy       zzzzzz