#!/usr/bin/perl -w
use strict;

while (<DATA>)
{
   my @tokens = split ' ', $_;
   
   printf "%-10s %-10s %-10s %-10s %-10s\n", @tokens;
}

=prints
TECH       SCANNER    WEBSERVER  TALKTOME   TRAINING  
TESTING    MOBILE     TECHADMIN  CIRCADMIN  MANAGERS  
=cut


__DATA__
TECH SCANNER WEBSERVER TALKTOME TRAINING
TESTING MOBILE TECHADMIN CIRCADMIN MANAGERS

##</code><code>##

while (<DATA>)
{
   my @tokens = split ' ', $_;
   my $format = '%-10s ' x @tokens;
   printf "$format\n", @tokens;
}