$imagename =~ s/^(.*?)(\.\w*)$/my $temp = $2; ($_ = $1) =~ s!\W!_!g; $_ .= $temp/e;