Select Code to Download

my $lineshapesline1 = 'SHAPES GREEN1;SIZE 240 500 340 930;SIZE 350 500
+ 240 590;SIZE 295 390 015 490;SIZE 350 210 760 300;SHAPES GREEN2;SIZE
+ 450 310 680 690;SIZE 450 110 680 490;SIZE 215 800 560 900;';

my $lineobsshapesline2 = 'SHAPES GREEN;SIZE 240 500 340 930;SIZE 350 5
+00 240 590;SIZE 295 390 015 490;SIZE 350 210 760 300;SHAPES BLUE;SIZE
+ 450 310 680 690;SIZE 450 110 680 490;SIZE 215 800 560 900;';

$arrayelement[0] = SHAPES GREEN;SIZE 240 500 340 930;SIZE 350 500 240 
+590;SIZE 295 390 015 490;SIZE 350 210 760 300;

...

...
...