>perl -wMstrict -le
"my $rec = 'user2   1707  amanda test 1 .doc.412   4064   '
         . '11/07/08-15:47   CREMFY   roadtest'
         ;
 print qq{'$rec'};
 ;;
 my ($username, $batchid, $remainder) = split /\s+/, $rec, 3;
 my $filename = reverse((split /\s+/, reverse($remainder), 5)[-1]);
 ;;
 print qq{'$username' '$batchid' '$filename'};
"
'user2   1707  amanda test 1 .doc.412   4064   11/07/08-15:47   CREMFY   roadtest'
'user2' '1707' 'amanda test 1 .doc.412'