#!/usr/bin/perl -w

use GD;

my $i = GD::Image->newFromPng("oxygen.png",1);

for (my $x=0;(($r,$g,$b)=$i->rgb($i->getPixel($x,47))) && $r == $g && $g == $b; $x+=7) {
  print chr($r)
}

print $/;