Untested:

SUCCESS:
while (my $line = <STDIN>) {
    next SUCCESS unless $line =~ /^Success.*Id-9952895b108957daeb296ba
+4/i;
    print $line;
    /^Success/i && next SUCCESS or print while <STDIN>;
    }
[download]