$test = 'NESTING';
$test =~ /(?:N.)S(.I)/;
print "$1 \n";