in reply to substring selection from a string on certain qualifying conditions

For AGRTGA, I used String::Substrings. 
#!/usr/bin/perl

use strict;
use warnings;
use String::Substrings;

my @trip = substrings 'AGRTGAXWXX', 6;
print "$trip[0]\n";

[download]
  • Comment on Re: substring selection from a string on certain qualifying conditions
  • Download Code

In Section Seekers of Perl Wisdom