Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my @segments = map {[$_, (scalar tr/STY//)]} split /(?<=[KR])/, $str;

printf "%45s: %d\n", @$_ for @segments;
  2. or download this
                                     GVGFTVILISFK: 2
                  YVGFFYNVIIAWALHYFFSSFTMDLPR: 6
   WIHCNNTWNSPNCSDAHASNSSDGLGLNDTFGTTPAAEYFER: 10