Is Spreadsheet::ParseExcel an option? Maybe even File::Stream with lookarounds? (I don't know if that's valid; I just saw mention of the module recently.)