my( $username , $BatchID , $Filename , $size , $Date , $Status , $Owner ) = 
unpack '
    A17         A15         A27         A16     A26     A16       A10 ';