my $value1 = "Total age recorded (TOTAGE)";
$value1 =~ /^.*\(.*)\)/;
print $value1 . "\n";