#!/usr/bin/perl use strict; use Getopt::Std; $_='75736 5207661727320 71777E246 F70745F7020246F 70745F637E3B0A6765746 F70742827706327 293B0A6D7924683B0A6966286465 66696E656420246F70745F63297 B0A206F 70656 E20434F44452C223C246F70745F63226F7220646 9652263616E6E6F74206F70656E20246F70745F6 35C6E223B0A207768696C65283C434F44453E29 7B24682E3D245F3B7D0A20636C6F736520434F 44453B0A7D656C73657B0A2024683D3C3C27484 558273B0A245F3D27375F263930313030313030 3131313130303130303130303131313130303131313 130363230343530333231303031333230343530333230303130 343230313131333630333030323030303332303030343030353030333 1313135303331313330363231353431333032313133303032313133303231313 330303231313131333639596D5054612628395339263E3938395A395539263E395F3 95A39 4C39263E3928395A395239263E3929395A394239263E395C5C5C3 95A394639263E3945395A394E39263E395C6E3929594A72696E48386D 614A255045303132333435364553554C5242464E4559376125375F585873 4A6C6948454559273B79274A485A262537 383958545950452770742C3D 7B2420227D253B792F273B6576616C3B 245F3D2827212 3383F257371242225717A3F3E25393 423716B3 4233D717330323A3423673F73275 E28 276127783333295E2828282828 2730277836292E275A272E 27302 77834292E275A272E27302 77837292 E275A272E273027783429 2E28275A2 72E2730277835292E275A 272E2730277 83229293B73706C697428 272227293B245 F5B315D3D222 0222E 75636669727374 28737562737 47 228245F5B315D2C3 62C3329292E 2220222E245F5B315 D2E225C2222 3B24223D2722273 B245F3D7171 7E405F7E3B657 6616C3B0A4 845580A7D0A6D79 24633D225C245F3D27222E75632 8756E7061636B2822482A222C 246829293B0A24632E3D717 17E273B732F5C5C732A2F2F 673B 6576616C28706163 6B 22482A222C5C2 usage: sharky.pl [option] 45F293B7E3 options: B0A696628 -p pattern file, asscii art. 21646566 -c code file, your perl code. 696E6564 output: 20246F7 itself is an example of the output. 0745F70 297B24 6F7074 5F703D 24303B 7D0A23 20 49206C 6 96B 65207 46F20636 F6D 6 D656 E74206 D792063 6F64652E2 02D7 8747 970650A6D7 9246F3 B0A6D79 2463743D3 03B0A 707269 6E742223212F7 5 73722F 62696E2F7065726C 202D7 75C6E757365207374726963 743B 5C6E2 23B0A707 2696E74222 32063 6F707972696768742032303032204A 65666 6726579204B65726E5C 6E22696 62821646566696E656420246F70745F6 329 3B0A6F70 656E205041545445524E2 C223C246F70745F70226F72206469652263616E6E6F74206F70656E20246F70745F705C6E223B 0A7768696C65283C5041545445524E3E297B0A2063686F6D703B0A207768696C65282F282E292 F67297B0A20206966282431206E6520222022297B0A202020246F3D7375627374722824632C24 63742C31293B0A2020202463742B2B3B0A20207D656C73696628243120657120222022297B0A2 02020246F3D2220223B0A20207D0A20207072696E74246F3B0A207D0A207072696E74225C6E22 3B0A7D0A246F3D7375627374722824632C246374293B0A7072696E74246F3B0A636C6F7365205 041545445524E3B0A'; s/[^A-F0-9]//g; eval pack"H*",$_;