split /-\d+/, $myint;

##</code><code>##

my @outputlist = ( $myint =~ m!([^-/]+)!g);