foxhacker

#!/usr/bin/env perl

use strict;
use warnings;

my ($in,@array);

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