my ($img) = $IN->param($field) =~ m|([^\\/]+)$|; # grab the image name...and then assign the path... use Data::Dumper; print "IMAGE BEFORE: " . Dumper($img); $img =~ tr{ÀÂÄàâäÇçÉÊÈËéêèëÏÌÎïìîÖÔÒöôòÜÛÙüûùA-Z?!;«»()" }{aaaaaacceeeeeeeeiiiiiioooooouuuuuua-z__________}; print "IMAGE AFTER: " . Dumper($img); print $IN->header; print qq|XXX: $img,$table,$field,$id
|;