Wenns nicht explizit eine Regex-Übung sein soll würd ichs wohl auch mit File::Basename machen, ansonsten
/(.*\/book)/