sub template
{
   my $r = shift;
   $r =~ s/^_+//;
   $r =~ s/_+$//;
   $r =~ s/_+/_/g;
   return join ',', map { length($_) } split(/_/,$r);
}