$filename =~ s/.*?[^\w\.\-\_]+\d+//g;