Select Code to Download

Select or download this

# base string
$a='-40300aa03aa01aa02-4-1-2-40503aa-4aaaaa02a-400ab-4-1-2aa-2aba-404-
+4-1-2a-400-40503-40505a-403ab-4a-4-4a-1';
print "a1:$a\n";
...
#$b=~s/^\),/print/;
#$b=~s/0(\d\d)/$1/g;
#eval($b.')');

Select or download this


################################################################
...
FF  OFOO      FOOO    OOOF   FOFO           OOFO    OFFO        
OOFFOFOO      FFFO    FOOO   FOFO           OOFO    FFOO    OOFO
 FFOOOF       OOOO    OFFO   FOOO           OOFF    OFOF