Select Code to Download

if ( $INPUT_DATA =~ /module (\w+) /) {
    my $circuit_name = $1;
    print "circuit name = $circuit_name\n";
}

if ( $INPUT_DATA =~ /module (\w+) /) {
    print "circuit name = $1\n";
}

#!/usr/bin/perl
#levelization.plx
...
for my $gate (@gates) {
    print "$gate->{gate_name}: $gate->{gate_level}\n";
}

my @array;
# Push the value 1 onto @array
...
print $array[2], "\n";          # 4
print $array[4][1], "\n";       # bob
print $array[5]{inp_1}, "\n";   # net_7