A possible solution is:

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

It may perhaps not be universally applicable, put it solves this particular case well.