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