#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

for my $string ('01/LC-13/E10GbE-1,01/LC-14/E10GbE-1',
                '01/LC-13/E10GbE-1'
) {
    my @numbers = $string =~ /-([0-9]+)/g;
    say "@numbers";
}