I haven't tried this...

...
pop @lines;
chomp(@lines);
my $hist = join '', @lines;
...
[download]

Then, later, when reading you could replace ";" by ";\n"...