substr($_,0,49) =~ s/$/<br><font color=red>+<\/font>/ if length($_) > 50;