$imagename =~ s/[^\w\.]/_/g;