Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
TABNAME   06100   01010   06000   00110A
!W31801!-->!919!-->!90200809!-->!840!-->!MO!
!W31801!-->!919!-->!902008!-->!74!-->!MO!

Select or download this

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