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

   $1;
}