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