while ($ARGV[0] =~ /^([\-+])/)#Tool usage:chipgen.pl -ipxact <conf> -chipcore <name> {
 $arg = substr(shift, 1);
$chipcore = shift                  if $arg =~ s/^chipcore//;
# what will be stored in $chipcore 
}
##</code><code>##

 print "$program_name: Processing hierarchy map: $hmap->{inst}::$hmap->{busif}\n";

##</code><code>##

my $str = "$imap->{inst1}($imap->{busif1}) <-> $imap->{inst2}($imap->{busif2})";