language: Perl (perl 5.16.2)
date: 274 days 2 hours ago
link:
visibility: public 
1
2
3
4
5
6
7

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'];");