my $str = join "_", split m([ /]), "[ABC AB AB12/83]";
  substr($str,  0, 1) = "";
  substr($str, -1, 1) = "";

##</code><code>##

  my $str = substr ${\join "_", split m([ /]), "[ABC AB AB12/83]"},
                   1, -1;