Select Code to Download

Data In: 
AAA~BB~CCCCC~DDD~
...
BB
CCCCC
DDD

sub add_line_break
{
...
 }
return wantarray ? @out :$out[0];
}

Data In: 
AAA~BB~CCCCC~DDD~
...
BB~
CCCCC~
DDD~