in reply to remove words with regex
perl -MFile::Basename -E 'say ((fileparse( "/2010-04-01/Tom/Ken/Fred/John.jso", qr/\.[^.]*/ ))[0])'
«The Crux of the Biscuit is the Apostrophe»