sub add_line_break
{
my (@out)=@_;
for (@out) {
 	s/(~+)/$1\n/g;
 }
return wantarray ? @out :$out[0];
}