while(<FILE>){
    if(/Foo/){
        $_ = foo();
        redo;
    }
    elsif {
     # do lots of other stuff
    }
}

sub foo {
    while(<FILE>){
        if(/something or other/){
             # so stuff
        }
        else {
            return $_;
        }
    }
}