docs: |
    Use L<substr()|perlfunc/"substr"> and L<index()|perlfunc/"index"> instead.

        my $strstr = substr( $haystack, index( lc $haystack, lc $needle ) );

    Or a regex:

        my ( $strstr ) = $haystack =~ /(\Q$needle\E.*$)/si;