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