#!/usr/bin/perl

use strict;

while (<DATA>) {
    my @rows;
    my ($name, $tel, $col3, $col4,           # lines 7
      $col5, $col6, @notes) = split;

    push (@rows, $name, $tel, $col3, $col4,  # lines 10
      $col5, $col6, (join " ", @notes) );

    print join " ", @rows , "\n";
}


__DATA__
abc  322 2/3/09 aaa aadda dasdas a1 a2 a3
def  433 3/4/08 dasd bdbdbd wings b1 b2 b3 b4 b5