($name) = split /-\d/,$string,2;