Select Code to Download

# strip html tags
$text     =~ s/<[^>]*>//g;
...

# shove resulting words into an array
my @words = $text =~ /(\w+\'*\w+)/g;

#!/usr/bin/perl

...

        ...still working on search and replaces for $word_string...
}