Select Code to Download

SUCCESS:
while (my $line = <STDIN>) {
...
    /^Success/i && next SUCCESS or print while <STDIN>;
    }