Help for this page

Select Code to Download

Select or download this

  my @letter_seq = map {
      $curr->[STYLE]
      . ":"
      . join(',', splice(@letter, 0, length $_))
  } join('', @property{@letter}) =~ s/\(G|D+|L+)/g;

Select or download this

    my $flattened_properties = join('', @property{@letter});
    my @letter_seq = map {
...
        . ":"
        . join('', splice(@letter, 0, length $_))
    } $flattened_properties =~ /\G(X|D+|L+)/g;