my @lines = split /\n/, $rec{'Description'}; # Split the description at each \n and store in @lines
foreach (@lines) { # Loop through @lines
if (length($_) > 20) { # If length of line > 20...
s/(.{10})/$1<BR>/g; # Split it into 10 char chunks
}
$_ .= "<BR>"; # Append a br tag to every line
$rec{'Description'} .= $_; # Re-join for storage within DBMAN
}