Try this:

use strict;
use warnings;
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
my $in_filename = "test.out"; 
open (IN,"$in_filename") or die "Can't open $in_filename:$!\n";
local $/ = undef;   # undef record seperator
my $str = <IN>;     # read file into string    
close(IN);
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
my @match = ($str =~ /([A-Z]\s\d+,\s\d+\(\s*\d+\))/g);
print "$_\n" for @match;
[download]