$name = (split/-\d/,$string)[0];