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

   $inner;
}

##</code><code>##

sub get_inner {
   my $str   = shift;
   my $inner = ( split(/\)/, $str) )[0];
   $inner    =~ m/([^\(]+)$/;

   $1;
}