my %flag;
print "\nReduce white space? >> ";
   chomp (my $space = <STDIN>);
   $flag{space}=1 if ($space =~/^y/i);
print "\nQuick and dirty strip of HTML tags? >> ";
   chomp (my $htmlstrip = <STDIN>);
   $flag{htmlstrip}=1 if ($htmlstrip =~/^y/i);

if ($flag{htmlstrip}) {
   s/<br>/\n/ig;
   s/<[^>]+>//g;
 #etc...
}
s/\s\s+/ /g if $flag{space};
}