$string =~ s/^\d_(\D+?)\d_(.*)/$1$2/;