my $name = "greenfield (Glossary) (100)";
my $appID;
   foreach ( $name =~ /\((.*?)\)/ )
   {
    $appID = $1;
   }
print $appID;