DB<25> @m = qw{01/LC-13/E10GbE-1 01/LC-13/E10GbE-1,01/LC-14/E10GbE-1} DB<26> say join ":", m{\d\d/\w+-(\d+)/\w+-(\d+),?}g for @m 13:1 13:1:14:1 DB<27>