TIMTOWTDI

my $i=0;
my $temp = "ARR";
while (<FILE>)
{
    if ($_ !~ /^\s+/) {
        chomp;
        $i++;
        @{$temp{$i}} = ($_);
    }
    else {
        my $temp2 = $_;
        chomp ($temp2);
        $temp2 =~ s/^\s+//g;
        push (@{$temp{$i}},$temp2);
    }
}
close (FILE);
    
for $j(0..$i)
{
    print "@{$temp{$j}}"."\n";
}
[download]