in reply to How to remove an apostrophe?
use File::Basename; ($newname= basename $fullname) =~ tr/'//d; [download]
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%.+=%;.#_}\&"^"-+%*) +.}%:##%}={~=~:.")&e&&s""`$''`"e [download]