Data In: 
AAA~BB~CCCCC~DDD~

Data Out:
AAA
BB
CCCCC
DDD

##</code><code>##

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

##</code><code>##

Data In: 
AAA~BB~CCCCC~DDD~

Data Out:
AAA~
BB~
CCCCC~
DDD~