perl -le '@m = ( "01/LC-13/E10GbE-1,01/LC-14/E10GbE-1" =~ /./\w+-(\d+)/\w+-(\d+)(?=,./\w+-(\d+)/\w+-(\d+))/); print for @m'