■

Text::ASCIITableというのでascii表組み表現が可能
たとえばexcelの表の一部をメール本文に添えたりするときに便利。
下はexcelをクリップボードに展開して、それをそのまま加工した時のオペログ(gcはgetclipのエイリアス)。

~/work/test_perl
(･∀･)つ gc|./settable.pl
.-----------------------------------------.
|     田中    | 山田 | 鈴木 | 木村 | 斉藤 |
+-------------+------+------+------+------+
|         100 |   30 |   45 |   60 |      |
| 99999999999 |   30 |   45 |   60 |      |
|           0 |   30 |   45 |   60 |      |
|         100 |   30 |   45 |   60 |      |
'-------------+------+------+------+------'

settable.pl

#!/usr/bin/perl
#機能 asciiを取得しtable状にして表示する。区切り文字は\t

use Text::ASCIITable;

my $tbl = Text::ASCIITable->new;

$tbl->setOptions({alignHeadRow => 'center'});
$head_flg = 1;
while(<>){
	@list=split /\t/,$_;
	if($head_flg == 1){
		$tbl->setCols(@list);
		$head_flg = 0;
	}else{
		$tbl->addRow(@list);
#		$tbl->addRowLine();

	}
}

print $tbl->draw, "\n";

参考：表形式の出力 - Perl表技集
POD ：Text::ASCIITable - Create a nice formatted table using ASCII characters. - metacpan.org