<?xml version="1.0" encoding="windows-1252"?>
<node id="538807" title="EAN-13 JAPH" created="2006-03-23 12:37:52" updated="2006-03-23 07:37:52">
<type id="1588">
obfuscated</type>
<author id="252827">
teamster_jr</author>
<data>
<field name="doctext">
After another long break between posting, here's my latest effort.
&lt;p&gt;
&lt;b&gt;update:&lt;/b&gt; here's a shorter version:
&lt;code&gt;
$_="JUST ANOTHER PERL HACKER,";s#.{5}#$d=5;map{$d+=$f++%2?3*$_:$_}@a=map
{split//}unpack C5,$&amp;;$_=join"",$"x3,$t="| |",map{/ /?$_:do{$l=$z=unpack 
B7,pack v,unpack(x.$_.C,"5A;eKYWc_3")-40&lt;&lt;1;$z=~s/./1^$&amp;/eg;$m=reverse$z
;${qw.l m m l l m.[$c++%12]||z}}}@a=(0,splice(@a,0,5," $t "),@a,10-$d%10
),$t.$/;s/\d/$&amp;?"|":$"/eg;"$_$_ 5 $t".join$"x5,$",@a," $t\n\n"#eg;print"
&lt;pre style='font:900 10 courier;line-height:8px;letter-spacing:-4px'&gt;$_"
&lt;/code&gt;

this outputs an html fragment - &lt;strike&gt;hopefully it's browser compliant&lt;/strike&gt; which probably only properly works in Moz.&lt;br&gt;If not you should be able to see what's going on...&lt;br&gt;

[http://www.barcodeisland.com/ean13.phtml|this] might explain what's happening.
&lt;br&gt;
alex</field>
</data>
</node>
