Okay, here's my best guess at your problem.

while (<FILE>){
    $line = /<begin>/ .. /<end>/;
    # do something powerful with $line here
}
[download]

Actually, it's a FAQ question.

Update: Included the <begin/end> tags to reflect the question.

<kbd>--
my $OeufMayo = new PerlMonger::Paris({http => 'paris.mongueurs.net'});</kbd>