my $found= 0;
while(  <>  ) {
    if(  0 == $found  &&  /^From: "\Q$Name\E"/  ) {
        $found++;
    } elsif(  1 == $found  &&  /^To: <sip:$Number@/  ) {
        $found++;
    } elsif(  2 == $found  &&  /^Call-ID: (.*)/  ) {
        return $1;
    } elsif(  /^From: /  ||  /^$/  ) {
        $found= 0;
    }
}
[download]