$ perl pm1103009.pl 

Final operations list:
 11: <RED>
 25: <BLACK>
 51: <BREAK>
 51: <RED>
 60: <BLACK>
 86: <RED>
 90: <BLUE>
100: <DONE>

LOOP: POS:1, COL:11, OP:RED
	TEXT(1-11): <GGCGCAACGC>
	RED(11)
LOOP: POS:11, COL:25, OP:BLACK
	TEXT(11-25): <TGAGCAGCTGGCGC>
	BLACK(25)
LOOP: POS:25, COL:51, OP:BREAK
	TEXT(25-51): <GTCCCGCGCGGCCCCAGTTCTGCGCA>
	BREAK(51)
LOOP: POS:51, COL:51, OP:RED
	RED(51)
LOOP: POS:51, COL:60, OP:BLACK
	TEXT(51-60): <GCTTCCCGA>
	BLACK(60)
LOOP: POS:60, COL:86, OP:RED
	TEXT(60-86): <GGCTCCGCACCAGCCGCGCTTCTGTC>
	RED(86)
LOOP: POS:86, COL:90, OP:BLUE
	TEXT(86-90): <CGCC>
	BLUE(90)
LOOP: POS:90, COL:100, OP:DONE
	TEXT(90-100): <TGCAGGGCAT>
END LOOP