#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 1;

my $name = "greenfield (Glossary) (100)";
my $want = '100';

$name =~ /([^(]+)\)$/;
is ($1, $want, "Matched");