use strict;
use warnings;
my $input='CNNNTGNNTN';
if ($input eq 'CNNNTGNNTN') {
    print "First answer:\tC-1TG-1T-1\n";
    print "Second answer:\tC3TG2T1\n";
}