Как установить начальную и конечную границу в Perl

Question

Это мой код

use strict; 
    use warnings; 
    my $string=" The UNIX grep filters the lines of a file based on a regular expression.Perl's grep can filter any list of value based on any condition. This Perl code implements a basic version of the UNIX grep: "; 
    $string =~ m/grep/; 
    print "$& $'\n"; 

Это мой выход:

Grep может фильтровать список значения, основываясь на каких-либо условий. Этого Perl код реализует базовую версию Grep UNIX:

Но я хочу Выход

Grep может фильтровать список значения, основываясь на каких-либо условиях. Этот код на Perl

Может ли кто-нибудь мне помочь?

Answer 1

попробуйте следующий код:

$string =~ m/\..*?(grep.*?code)/; 
print "$1\n";