if $line = /(\s+)\s+(\s+)/$1 $2;
        {
                push(@a1, $1);
                push(@a2, $2);
                next;
        }