while(<FH>)
  {
  my $line = $_;
  chomp($line);
  $line =~ /^[\d]+ rows in set \(([^\)]+)/;
  $retValue = $1 if (defined($1));
  }
close FH;

print "The value is '$retValue'\n";