$string = "alpha-bravo-charlie-delta-echo-foxtrot"; @list = split ( /(-)/, $string );