...
    } elsif ($line !~ /^\(/) {

        my $GCcount =()= ($line =~ m/(G|C)/g);
        say "$identifier, " , ($GCcount / length($line) * 100);

    }
    ...