in reply to Print Array items in Fixed width

Formatting fixed width output is often easier with pack: 

#! perl -slw
use strict;

print pack '(A10)*', split ' ', <DATA>;
while( <DATA> ) {
    chomp;
    print pack '(A10)*', split '-->', $_;
}
__DATA__
TABNAME   06100   01010   06000   00110A
!W31801!-->!919!-->!90200809!-->!840!-->!MO!
!W31801!-->!919!-->!902008!-->!74!-->!MO!

[download]
<>Gives
c:\test>junk4
TABNAME   06100     01010     06000     00110A
!W31801!  !919!     !90200809!!840!     !MO!
!W31801!  !919!     !902008!  !74!      !MO!

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

In Section Seekers of Perl Wisdom