my $ext = "";
if ($imagename =~ s/(\.jpe?g|\.gif|\.png)\z//i) { # updated
   $ext = $1;
}
$imagename =~ s/\W/_/g;  # updated 
$imagename = $imagename.$ext; # updated

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.