parsing text

[idorjee]

Hi,
Can anyone please tell me how should I be parsing the following text file so that I could retrieve just the text following FUNCTION: and next two lines without the CC?

--------------------- Input text file ---------------------------
CC -!- FUNCTION: Involved in the secretion of a proteinaceous elicitor of
CC the hypersensitivit y response in plants. Also required for
CC pathogenicity on host plant.
CC -!- SIMILARITY: Belongs to the hrpJ/yopN family.
---------------------------------------------------------------------

This is how I started with:

if($ln =~ /^CC/){
$ln =~ s/\n//g;
next;
}

Thanks

[KevinADC]

A very contrived suggestion:

[CODE=perl]use strict;
use warnings;
my $output = '';
while( <DATA> ) {
if (/\QCC -!- FUNCTION:\E\s*([\s\S]+)/) {
$output = $1;
$output .= <DATA>;
$output .= <DATA>;
$output =~ s/CC\s+//g;
last;
}
}
print $output;
__DATA__
CC -!- FUNCTION: Involved in the secretion of a proteinaceous elicitor of
CC the hypersensitivit y response in plants. Also required for
CC pathogenicity on host plant.
CC -!- SIMILARITY: Belongs to the hrpJ/yopN family.[/CODE]

[idorjee]

Thanks a lot, KevinADC.

A very contrived suggestion:

[CODE=perl]use strict;
use warnings;
my $output = '';
while( <DATA> ) {
if (/\QCC -!- FUNCTION:\E\s*([\s\S]+)/) {
$output = $1;
$output .= <DATA>;
$output .= <DATA>;
$output =~ s/CC\s+//g;
last;
}
}
print $output;
__DATA__
CC -!- FUNCTION: Involved in the secretion of a proteinaceous elicitor of
CC the hypersensitivit y response in plants. Also required for
CC pathogenicity on host plant.
CC -!- SIMILARITY: Belongs to the hrpJ/yopN family.[/CODE]