'cOne cTwo   cThree 13 sec  cFour           
cOne cTwo   cThree 11 sec  cFour 
cOne cTwo   cThree 1 min 2 sec  cFour 
cOne cTwo   cThree 13 sec  cFour'; 
##</code><code>##

ColumnA    ColumnB   ColumnC      ColumnD
cOne       cTwo      13 sec       cFour
cOne       cTwo      11 sec       cFour             
cOne       cTwo      1 min 2 sec  cFour

##</code><code>##


use strict;
use warnings;
use HTML::Table;
my $table = new HTML::Table(-border=>0.2,
 -bgcolor=>'#F4F5F7',
 -head=> ['ColumnA','ColumnB','ColumnC', 'ColumnD']);                                              

my @wtodays=
'cOne cTwo   cThree 13 sec  cFour           
cOne cTwo   cThree 11 sec  cFour 
cOne cTwo   cThree 1 min 2 sec  cFour 
cOne cTwo   cThree 13 sec  cFour'; 
 
for ( @wtodays )
{
$table->addRow(split(/\s+/, "$_\n"));
}

print $table;