Select Code to Download

use strict;

...
       print "Filetype $1, reason $2 has a count of $count{$_}\n";
     }
  }

use strict;

...
  my $html = $file=~s/\.html 200//g;
  print "Count of HTML 200 is $html\n";
}