in reply to Re: substr is behaving differently with small vs large strings
in thread substr is behaving differently with small vs large strings

s/[^atgc]+//g;

[download]

In Section Seekers of Perl Wisdom