$var =~ s/(\d*?)-(.*?)-(.*)/$1$2$3/ee;