my $regex = '^-'
      .('(\S+)\s+'x18)
      .'(.{40})'
      .'(.{40})'
      .'(.*)';