Rewrite image pattern matching via XS (Inline::C). x100 speed improvement!!!