while ( <DATA> ) {
    my @col = /^(\w{3}) (.{1,5})\s+(\w+)\s+([01?]) ([01?]) ([01?]) ([01?]) ([01?])$/;
    print join "\t" , @col;
    print "\n";
}