Help for this page
#!/usr/bin/env perl ... grep length $_ >= $min, split /$re/, $str )[0]; }
A: AAA C: CCCCCC G: GGGG T: TTT