根據你想做的內容我想到的作法如下
my $line = 'C+10AAAAAAAAAAT-3CGCA';
$line =~ s/((\d+)[ACGTNacgtn]+)/substr($1, length($2)+$2)/eg;
使用到的觀念包含:
length function
substr function
substitute with the e modifier
關於 e modifier 的參考資料
http://perldoc.perl.org/perlop.html#Regexp-Quote-Like-Operators
※ 引述《CindyLinz (Cindy Wang)》之銘言：
: ※ 引述《scwg ( )》之銘言：
: : 根據 http://perl5.git.perl.org/perl.git/blob?f=dquote_static.c
: : S_regcurly() 在 parse 的時候 { 之後一定要接數字