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};
}

##</code><code>##

for (my $i=0; $i<(length -4); $i++) {
  push @{$strings{substr ($_,$i,4)}},substr($_,$i+4,1);
  # or # $strings{substr (_,$i,4)}{substr($_,$i+4,1)}++;
}