my $fh;
my $i = 0;
while (my $line = <$in>) {
    if (!$fh or $line !~ /\S/) {
        $i++;
        open $fh, '>', "seq_$i" or die "Open fail seq_$i: $!\n"; 
    }
    print $fh $line;
}