$imagename =~ s/\W/\_/g;