if (0 <= index($text, $pattern) && $text =~ /\b$pattern\b/) {
    }