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