use strict;
use warnings;
use JSON;

my @users;

while (my $line = <DATA>) {
  if ($line =~/(@\w+)/) {
    push(@users, {id => $1, done => 0});
  }
}

print encode_json(\@users);


__DATA__
@e175701 - 奥田　光希
@e175706 - 上地　悠斗 (soto)
@e175733 - mk (mk)
@e175748 - 大蔵　海斗 (Tobiuo)
@k198576 - 城後　明慈 (akishige-jogo)
@k198584 - 清水　隆博 (AnaTofuZ)
@k198592 - 東恩納　琢偉
@k208573 - 一木　貴裕 (Itsuki)
@riono - 安田　亮 (riono)