Select Code to Download

use strict;
use warnings;
...
my $word = 'Monastery';
my $count = () = $page_text =~ /\b$word\b/gi;
print "$word appears $count times.\n";

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