#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11112671
use warnings;

my $string = 'aaa, bbb, ccc,ddddd;eee-12345abc Qwerty';

my @a;
$string =~ m{
  (?<![-\w/])[-\w/]
  .*
  (?<=[-\w/])(?![-\w/])
  (?{ push @a, $& })
  (*FAIL)
  }x;

use Data::Dump 'dd'; dd \@a;
[download]

Outputs:

[
  "aaa, bbb, ccc,ddddd;eee-12345abc Qwerty",
  "aaa, bbb, ccc,ddddd;eee-12345abc",
  "aaa, bbb, ccc,ddddd",
  "aaa, bbb, ccc",
  "aaa, bbb",
  "aaa",
  "bbb, ccc,ddddd;eee-12345abc Qwerty",
  "bbb, ccc,ddddd;eee-12345abc",
  "bbb, ccc,ddddd",
  "bbb, ccc",
  "bbb",
  "ccc,ddddd;eee-12345abc Qwerty",
  "ccc,ddddd;eee-12345abc",
  "ccc,ddddd",
  "ccc",
  "ddddd;eee-12345abc Qwerty",
  "ddddd;eee-12345abc",
  "ddddd",
  "eee-12345abc Qwerty",
  "eee-12345abc",
  "Qwerty",
]
[download]