#! /usr/bin/perl use strict; use warnings; use Text::Table; my $table = 'Text::Table'->new; while () { my @columns = split / +(?!\()/; $table->add(@columns); } print $table; __DATA__ Package Coverage Line Method Branch com.gandu.base.alltests 90% 91% (20/22) 50% (1/2) 0% (0/0) ...