use File::Basename;
($newname= basename $fullname) =~ tr/'//d;