use strict;
use warnings;
use LWP::Simple;
use HTML::Strip;

my $content = get( "http://www.perlmonks.org" );
die "Couldn't get content!" unless defined $content;
my $hs = HTML::Strip->new();
my $page_text = $hs->parse( $content );
$hs->eof;
my $word = 'Monastery';
my $count = () = $page_text =~ /\b$word\b/gi;
print "$word appears $count times.\n";

##</code><code>##

# $word is direct user input
my $count = () = $page_text =~ m/\b$word\b/gi;