Shell Programming and Scripting

$ cat script.pl
use warnings;
use strict;
use Text::ASCIITable;
 
my @lines;
my @header = qw( col1 col2 );
 
while ( <DATA> ) {
        chomp;
        my @f = map { s/\s+\Z//; $_ } split /\|/;
        push @lines, [ @f ];
}
 
my $t = Text::ASCIITable->new;
$t->setCols( @header );
 
$t->setColWidth( $header[0], 10 );
for ( @lines ) {
        $_->[0] =~ s/(.{10})(?=\S)/$1\n/g;
        my $num_lines = $_->[0] =~ tr/\n/\n/;
        for my $i ( 1 .. $num_lines ) {
                $_->[1] =~ s/^/\n/;
        }
        $t->addRow( $_ );
}
 
print $t;
 
__DATA__
value1                                                    | Updated this row
value1                                                    | Updated this row also
value1                                                    | Updated again
value1                                                    | Changed table contents
value-value-value-value-value2                            | added few lines of code
value-value-value-value-value2                            | added another few lines using perl
ABCDEFGH                                                  | updated code to add few lines
TESTING                                                   | added new testing procedure
TESTING AGAIN                                             | Updated General info
ABCDEFG TESTING, AGAIN AND AGAIN                          | Updated information
ABCDEFG TESTING, AGAIN AND AGAIN                          | Updated home address
$ perl script.pl
.--------------------------------------------------.
| col1       | col2                                |
+------------+-------------------------------------+
| value1     |  Updated this row                   |
| value1     |  Updated this row also              |
| value1     |  Updated again                      |
| value1     |  Changed table contents             |
| value-valu |                                     |
| e-value-va |                                     |
| lue-value2 |  added few lines of code            |
| value-valu |                                     |
| e-value-va |                                     |
| lue-value2 |  added another few lines using perl |
| ABCDEFGH   |  updated code to add few lines      |
| TESTING    |  added new testing procedure        |
| TESTING AG |                                     |
| AIN        |  Updated General info               |
| ABCDEFG TE |                                     |
| STING, AGA |                                     |
| IN AND AGA |                                     |
| IN         |  Updated information                |
| ABCDEFG TE |                                     |
| STING, AGA |                                     |
| IN AND AGA |                                     |
| IN         |  Updated home address               |
'------------+-------------------------------------'