خروجی در پرل

سلام. من یه چند خط کد نوشتم که تعداد یه رشته رو واسم بشماره ولی درست کار نمیکنه، یکی بیشتر خروجی میفرسته.

p.mo.jpg

مثلا اگه الان اینو بدم بهش AGCT میزنه 5 تا، من از اکلسپس+ اپیک، بصورت آنلاین و چند تای دیگه استفاده کردم تو ابونتو همه میزنن تعداد 5. ولی تو گوشیم یه ide پرل دارم (perli) اون تعداد رو درست میزنه. ممنون میشم اگه کسی با این مشکل برخورده راهنمایی کنه.