#Read data into $file
if ($file =~ m/^\x50\x4B\x03\x04/) {
   #Parse as ZIP file
} else {
   #Parse as something else
}