Help for this page

Select Code to Download

Select or download this

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

Select or download this

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