my @satfile = <STDIN>;
my @satseq = @satfile;

##</code><code>##

my $sorsz = 3;
while (my $line = <STDIN>) {
    chomp $line;    # to remove newlines

    if ( $. <= 3 ) {    # input line numbers start from 1
        push @satseq, $line;
    }
    elsif ( $line =~ /\#/ ) {
        $satseq[$sorsz] .= $line;    # concatenates line onto the end
        $sorsz++;
    }
    else{
        $satseq[$sorsz] .= $line;
    }
}