$text = '

test one 1.I WANT THIS TEXT one two ...

and 2.I WANT THIS TEXT and some text

three 3.I WANT THIS TEXT three end ... ';



push @match, $2 while $text =~ /(\w+\s+)(.+\s+)\1/g;



$" = $/; print"@match"



__END__



output:

1.I WANT THIS TEXT

2.I WANT THIS TEXT

3.I WANT THIS TEXT

Съдържаниет е скрито
Влезте за да го видите