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