note
damian1301
Don't reinvent the wheel! :) We already have [cpan://Syntax::Highlight::Perl] to do that for you, written by our own [bbfu].
<BR><BR>
<code>
$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.
</code>
101088
101088