finding text in perl

[fetaelin]

Hi..
I have a textfile like this...

*****************************
blablalba
*****
begin
somve value 3 5 XXX
blablabla
**
bla
somve value 4 6 WWW
end
****************************
*****************************
blablalba
*****
begin
somve value 3 5 XXX
blablabla
**
bla
somve value 4 6 YYY
end
****************************
*****************************
blablalba
*****
begin
somve value 3 5 XXX
blablabla
**
bla
somve value 4 6 ZZZ
end
****************************
I want to print out from begin to end ONLY that part who ase YYY
so the first part which have somve value 4 6 WWW souledent come out
the result of the script sould be printing

begin
somve value 3 5 XXX
blablabla
**
bla
somve value 4 6 YYY
end



how can I do that ?
the text is in a file calles myfile.txt

[KevinADC]

post the perl code you have written so far.

Read the second and third FAQ on this page:

http://perldoc.perl.org/perlfaq6.html

I'm having trouble matching over more than one line. What's wrong?

How can I pull out lines between two patterns that are themselves on different lines?

[fetaelin]

post the perl code you have written so far.

Read the second and third FAQ on this page:

http://perldoc.perl.org/perlfaq6.html

I'm having trouble matching over more than one line. What's wrong?

How can I pull out lines between two patterns that are themselves on different lines?

okay..
I can use the
perl -0777 -ne 'print "$1\n" while /START(.*?)END/gs' file1
BUT I want a condition too, if there is a word "XXXXX" between start and end, then it should print it else dont print
how to write the conditon ?

[KevinADC]

maybe:

perl -0777 -ne 'print "$1\n" while /START(.*?XXXXX.*?)END/gs' file1

[fetaelin]

maybe:

perl -0777 -ne 'print "$1\n" while /START(.*?XXXXX.*?)END/gs' file1

okay.. that worked, but The sart and the end did not exist in the answer,
how can I do the same thing but having start and the end with the text ?

[KevinADC]

perl -0777 -ne 'print "START$1END\n" while /START(.*?XXXXX.*?)END/gs' file1

[miller]

As a script:

@ARGV = 'myfile.txt';
 
while (<>) {
    if (/^begin$/../^end$/) {
        $t .= $_;
    } else {
        print "$t" if $t =~ /YYY/;
        $t = '';
    }
}