I think swiftone has the right idea. I'd do it like this:

    my $line= "Bob Q Smith bsmith 00001234567 5/1/00 12:00:00\n";
    my( $time, $date, $num, $user, @names )= reverse split ' ', $line;
    my $name= join " ", reverse @names;
    print "$name,$user,$num,$date $time\n";
[download]

        - tye (but my friends call me "Tye")