sub verify
{
  return ($_[0] =~ m/^((?:\w{2,6}\[[^\]]*\];)+)$/)? 1 : 0;
}

print verify("add[2,5,525];print['peron'];print['asd','cgfg];print['iudofiusdoif'];");
print verify("add[2,5,525];print['peron'];print['asd','cgfg];time;print['iudofiusdoif'];");