$ perl grep.pl AAA XXX example.txt