No special regex tricks here, 'booklink' should match just as easily as 'book'. But what's gonna happen if you fail to open your file? Maybe you should:

open(PAGE, $page) || die $!;

Just in case.

YuckFoo