my $gate_name = 'nand2_1';
my ($gtype, $gfirst, $gsecond) = ($gate_name =~ /^(\w+)(\d+)_(\d+)/);
print "# $gtype # $gfirst # $gsecond #\n";

##</code><code>##

# nand # 2 # 1 #