#!/usr/bin/perl -w
use strict;
use warnings;

while (my $seq=<DATA>) {
        print $seq, ':';
        my $cnt=0;
        my $prev=undef;
        my @arr = split /|/,$seq;
        while (my $c = shift @arr) {
                ++ $cnt;
                if ($c eq 'N') {
                        $prev = $cnt;
                }
                else {
                        print( $prev, ' ') if $prev;
                        $prev = undef;
                }
        }
        print "\n";
}
__DATA__
GNNTCGANNTT
GAATCGNNNTT
GANNCGNNNNN