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 
}