$article =~ s/\s+/ /gs;
$article =~ s|([^\n]\b{0,100})|$1<br/>|gs;