use strict;
use warnings;

while (<DATA>) {
    chomp;
    print "Use character position for name - $NAME1\n";
    my $batchID = (split/[ ]+/)[1];
    my ( $Name,$File) = (split/[ ]+[ ]+[0-9]+[ ]+[ ]+/)[0,1];
    print "$Name has $File and BatchID is $batchID\n\n";
}


#username       BatchID       Filename                  size           Date                     Status         Owner
__DATA__
user1           1718          test2.txt.542             46             11/07/08-15:45           CREMFZ         roadtest 
user1           1715          MIGRATE.DLL.698           40960          11/07/08-15:46           CREMFY         roadtest
user1           1712          New Microsoft Word Docu   35840          11/07/08-15:46           CREMFY         roadtest 
user2           1707          amanda test 1 .doc.411    24064          11/07/08-15:47           CREMFY         roadtest 
user2           1706          amanda test 1 .doc.544    24064          11/07/08-15:47           CREMFY         roadtest 
user2           1705          amanda test 1 .doc.55     24064          11/07/08-15:47           CREMFY         roadtest
user3           1702          amanda test 2 .doc.322    24064          11/07/08-15:47           CREMFY         roadtest 
user3           1701          amanda test 2 .doc.610    24064          11/07/08-15:47           CREMFY         roadtest 
user3           1699          amanda test 2.doc.829     24064          11/07/08-15:47           CREMFY         roadtest