foxhacker

#!/usr/bin/env perl

use strict;
use warnings;

my ($in,@array);
$in=0;

while(<>){
        if (/^OBS ASH CLOUD/) {
                $in=1;
        }
        elsif (/^\n/) {
                $in=0;
        }
        chomp;
        if($in) {
                @array=split(/\s+/);
                #print "@array\n";
        }
}

for (i=0; #$array; i++) {
#shift (@array);
print "$array[$i]\n";
}