#!/usr/bin/perl -w
use strict;

my $string = "Identities = 1529/1540 (99%), Gaps = 2/1540 (0%)";
my ($wanted) = $string =~ m#\((.*?)\)#;
print "$wanted\n";