C:>perl -E "my $word="jackhammer"; if ($word =~ /\bjack\b/) {
    say $word;
} else {
    say \"No word-boundry-delimited 'jack's' found in $word\";
}"

No word-boundry-delimited 'jack's' found in jackhammer