Select Code to Download

my $state = 'idle';
while ( my $input = <> ) {
...
    elsif ( $state eq ...
    else { die "internal error: bad state $state" }
}

my $state = 'idle';
while ( my $input = <> ) {
...
    elsif ( $input =~ ...
    else { die "unknown input: $input" }
}

use warnings;
use strict;
...
    }
    return \@outdata;
}