use Text::Reform; @graph = split "\n", <<EOGRAPH; |* | * | * | * | * | * | * | EOGRAPH print form {squeeze=>0}, '~ [[[[[[[[[[[[[[[[[[[[[[[[[[[[', "Activity", \@graph, ' +---------------------------', ' ||||||||||||||||||||||||||||', 'Time';