$form = <<"EOF";
XXXXX     XXXXX XXXX
  XX XX     XXXXX
X    XXXX    XXXX   XXX
EOF

@data = qw/one two three four five six seven eight nine ten/;

$form =~ s/\bX/\@/sg;
$form =~ s/X/</sg;
my $totalcount = 0;
my $format = "format STDOUT = \n";
foreach (split(/\n/,$form)) {
  $format .= $_."\n";
  (@c) = (m/([@<]+)/g);
  $format .= '$data['.$totalcount++.'],' for 0..$#c;
  $format =~ s/,$//s;
  $format .= "\n";
}
$format .= ".";

eval $format;
write;