sub get_inner {
   my $str   = shift;
   my $inner = ( split(/\(/, $str) )[-1];
   $inner    =~ s/\).+$//;

   $inner;
}