diegok

#!/usr/bin/env perl
use 5.10.0;
use strict;
use Supers::Schema;
use Text::CSV;
use utf8;
use Encode;
use Excel::Writer::XLSX;
use Data::Types;
binmode(STDOUT, ":utf8");

diegok

sub extract_subcategories {
  my ($c, $slug_param, $categories, $facets) = @_;

  return [] unless @$categories;

  my ($cref)  = ref($c) =~ m/::(\w+)$/;
  my $level   = split '/', $slug_param;
  my $slg     = Supers::Slugify->new;
  my $subcats = [];
  my $slug_re = qr/^$slug_param/;

diegok

my $slug = "bebe/mas/cosas/t/tag";
my ($real_slug, $rest) = $slug =~  m|^(.+?)(/[mt]/.*)?$| 

# con tu ejemplo:

my ($real_slug) = $slug =~ /((?!\/[tm]).+)/