#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

print "$ARGV[0]\n";


my $first = $ARGV[0];
print "$first This is my First Argument!\n";


my $string = do { local $/; <> };

$string=~ s/[\n\r]//g;



$string=~ s/.*(<title>.*?<\/title>).*?(<body.*?<\/body>).*/$1,$2/gsi;
$string=~ s/<title>(.*?)<\/title>/$1/gsi;
$string=~ s/<body.*?>(.*?)<\/body>/$1/gsi;
$string=~ s/24&#176;//gsi;



$string=~ s/<!--.*?-->//gsi;
$string=~ s/<a.*?<\/a>//sgi;
$string=~ s/<form.*?<\/form>//sgi;
$string=~ s/<iframe.*?<\/iframe//sgi;
$string=~ s/<noscript.*?<\/noscript>//sgi;
$string=~ s/<script.*?<\/script>//sgi;
$string=~ s/<select .*?<\/select>//sgi;
$string=~ s/<textarea.*?<\/textarea>//sgi;
$string=~ s/<li.*?<\/li>//sgi;
$string=~ s/<IMG.*?>//gsi;
$string=~ s/<div.*?>//gsi;
$string=~ s/<\/div.*?>//gsi;
$string=~ s/<b.*?>|<\/b>//gsi;
$string=~ s/<h1.*?>|<\/h1>//gsi;
$string=~ s/<h2.*?>|<\/h2>//gsi;
$string=~ s/<h3.*?>|<\/h3>//gsi;
$string=~ s/<h4.*?>|<\/h4>//gsi;
$string=~ s/<h5.*?>|<\/h5>//gsi;
$string=~ s/<h6.*?>|<\/h6>//gsi;
$string=~ s/<head.*?>|<\/head>//gsi;
$string=~ s/<html.*?>|<\/html>//gsi;
$string=~ s/<li.*?>|<\/li>//gsi;
$string=~ s/<option.*?>|<\/option>//gsi;
$string=~ s/<script.*?>|<\/script>//gsi;
$string=~ s/<p.*?>|<\/p>//gsi;
$string=~ s/<span.*?>//gsi;
$string=~ s/<\/span.*?>//gsi;
$string=~ s/<\/ul.*?>//gsi;
$string=~ s/<ul.*?>//gsi;
$string=~ s/<hr.*//gsi;
$string=~ s/<input.*?>//gsi;


$string=~ s/[^\x{00}-\x{7E}]//gsi;
$string=~ s/&nbsp|&#160;/ /gsi;
$string=~ s/&#39;/'/gsi;
$string=~ s/&gt;/>/;
$string=~ s/&amp;/&/gsi;
$string=~ s/&lt;/</gsi;
$string=~ s/CClear//gsi;

my @list = split(/\s+/, $string);
my $word_count = $#list;
my @sentence = split (/\.|\?|\!/, $string);

print "@list\n";    

print "There are $#sentence sentences in the list\n"; 

print "There are $#list words.\n";