一个简单的Perl脚本求单条序列的GC含量

#!/usr/bin/perl
use strict;
use warnings;
##初学Perl，代码比较简单，其实还有更简单的解决办法，请勿拍砖
my $str = "ACGTACGTACGT";
##$str为目标序列，即计算该序列的GC%
my @lines = split //,$str;
##将目标序列分割成单个碱基，并将单个碱基存入数组