Select Code to Download

my $status = shift @cells;
my $end = pop @cells;
my $start = pop @cells;
print "<td>$_</td>" for ($status, join(' ', @cells), $start, $end);

# Do this once:
my $status_re = qr{\w+};
...
...
# Do this in the while loop
print "<td>$_</td>" for $line =~ $log_re;