Select Code to Download

#!/usr/bin/env perl

...
      grep { !(m/^\s*$/) and length $_ > 0 } @extracted;
    print qq{\n};
}

Input:  50 0 "R0 G255 B0 A255" "Solid" 118 1 "R0 G0 B0 A255" "R0 G0 B0
+ A255" 0
Output:
...
        "R12 G12 B12 A255"
         0