foxhacker

#!/usr/bin/env perl

use strict;
use warnings;

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

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

                for ($i=0; $i <= $#array; $i++) {
                        if ($array[$i] eq "-") {
                        delete $array[$i];
                        }
                }
                push(@foo, @array);
        }
}
shift (@foo);
shift (@foo);
shift (@foo);
shift (@foo);

print "@foo\n";