Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
          $q->end_html;
    exit(0);
}

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